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desde Visual Basic .NET. 
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programadores que 
deseen adentrarse en el 
mundo de la 
programación. 

T> 

n 



Fundamentos de 

ROGRAMACIÓN CON VISUAL 

Basic .NET 

Luis Miguel Blanco 








ADVERTENCIA LEGAL 

Todos los derechos de esta obra están reservados a Grupo E1DOS Consultoría y Documentación 
Informática, S.L. 

El editor prohíbe cualquier tipo de fijación, reproducción, transformación, distribución, ya sea mediante 
venta y/o alquiler y/o préstamo y/o cualquier otra forma de cesión de uso, y/o comunicación pública de la 
misma, total o parcialmente, por cualquier sistema o en cualquier soporte, ya sea por fotocopia, medio 
mecánico o electrónico, incluido el tratamiento informático de la misma, en cualquier lugar del universo. 

El almacenamiento o archivo de esta obra en un ordenador diferente al inicial está expresamente 
prohibido, así como cualquier otra forma de descarga (downloading), transmisión o puesta a disposición 
(aún en sistema streaming). 

La vulneración de cualesquiera de estos derechos podrá ser considerada como una actividad penal 
tipificada en los artículos 270 y siguientes del Código Penal. 

La protección de esta obra se extiende al universo, de acuerdo con las leyes y convenios internacionales. 

Esta obra está destinada exclusivamente para el uso particular del usuario, quedando expresamente 
prohibido su uso profesional en empresas, centros docentes o cualquier otro, incluyendo a sus empleados 
de cualquier tipo, colaboradores y/o alumnos. 

Si Vd. desea autorización para el uso profesional, puede obtenerla enviando un e-mail fmarin@eidos.es o 
al fax (34)-91 -5017824. 

Si piensa o tiene alguna duda sobre la legalidad de la autorización de la obra, o que la misma ha llegado 
hasta Vd. vulnerando lo anterior, le agradeceremos que nos lo comunique al e-mail fmarin@eidos.es o al 
fax (34)-91-5012824). Esta comunicación será absolutamente confidencial. 

Colabore contra el fraude. Si usted piensa que esta obra le ha sido de utilidad, pero no se han abonado los 
derechos correspondientes, no podremos hacer más obras como ésta. 

© Luis Miguel Blanco, 2002 

© Grupo EIDOS Consultaría y Documentación Informática, S.L., 2000 

ISBN 84-88457-40-5 


Fundamentos de programación con Visual Basic .NET 

Luis Miguel Blanco 

Responsable editorial Coordinación de la edición 

Paco Marín ( fmarin@eidos.es ) Antonio Quirós ( aquiros@eidos.es) 

Autoedición 

Magdalena Marín ( mmarin@eidos.es ) 

Luis Miguel Blanco ( lmblanco@eidos.es ) 

Grupo EIDOS 

C/ Téllez 30 Oficina 2 
28007-Madrid (España) 

Tel: 91 5013234 Fax: 91 (34) 5017824 
www.grupoeidos.com/www.eidos.es 

www.LaLibreriaDigital.com 


3 













Indice 

ÍNDICE.5 

PROGRAMACIÓN Y DISEÑO DE ALGORITMOS.15 

Las ventajas del uso de ordenadores.15 

¿Qué es la programación?.16 

¿Qué es un lenguaje de programación?.16 

¿QUÉ ES UN PROGRAMA?. 16 

Etapas en el desarrollo de un programa.17 

Análisis del problema.17 

Estudio del problema.18 

Algoritmos.18 

Diagramas de flujo . 20 

Operadores e identificadores en los diagramas de flujo . 24 

Pseudocódigo . 27 

Diagramas Nassi-Schneiderman . 29 

IMPLEMENTACIÓN DE PROGRAMAS EN LA PLATAFORMA MICROSOFT .NET.31 

IMPLEMENTACIÓN DEL PROGRAMA.31 

Tipos de lenguaje de programación.32 

Lenguajes máquina . 32 

Lenguajes de bajo nivel . 32 

Lenguajes de alto nivel . 32 

Modelos de programación.33 

Programación lineal . 33 

Programación procedural . 34 

Programación estructurada . 35 



























Programación orientada a objeto (OOP) . 36 

Seleccionar el lenguaje de programación más adecuado.37 

El archivo ejecutable y su proceso de creación.37 

Interfaces de usuario.38 

Las herramientas para la creación de programas.38 

.NET FRAMEWORK: EL ENTORNO DE EJECUCIÓN.39 

EL SDK DE .NET FRAMEWORK: LAS HERRAMIENTAS DE DESARROLLO.39 

Requisitos hardware de Visual Studio .NET.40 

El sistema operativo para Visual Studio .NET.40 

Recomendaciones previas a la instalación de Visual Studio .NET.41 

Proceso de instalación de Visual Studio .NET.41 

Hola mundo, desde Visual Basic .NET.48 

El compilador de VB.NET .48 

El entorno de desarrollo integrado (IDE) de Visual Studio .NET.51 

Proyectos en Visual Studio .NET.52 

Creación de un proyecto . 52 

El editor de código fuente . 53 

El código del programa . 53 

El Explorador de soluciones .55 

La estructura de archivos del proyecto .55 

El sistema de ayuda.56 

EL LENGUAJE. ELEMENTOS BÁSICOS.59 

Componentes de un lenguaje de programación.59 

Datos.60 

Simples . 60 

Numérico.61 

Carácter.61 

Fecha.62 

Lógico.62 

Compuestos . 62 

Definidos por el programador . 62 

1DENTIFIC ADORES.63 

Palabras reservadas.63 

Estructura de un programa.63 

Ubicación del código en el programa.64 

Comentarios.65 

INDENTACIÓN DEL CÓDIGO.65 

Manejo de la consola del sistema.67 

Visualizar información en la consola . 67 

Obtener información de la consola . 69 

Variables.70 

Declaración . 70 

Denominación . 71 

Lugar de la declaración . 71 

Tipificación . 71 

Declaración múltiple en línea . 74 

Asignación de valor . 74 

Valor inicial . 76 

Declaración obligatoria .77 

Option Explicit a nivel de proyecto.77 

Option Explicit a nivel de fichero.78 

Tipificación obligatoria . 79 

Avisos del IDE sobre errores en el código.82 

Grabación del código modificado.82 

























































Constantes.83 

INTRODUCCIÓN A LOS ARRAYS. OPERADORES.87 

Depuración del código en ejecución.87 

Arrays.90 

Declaración . 90 

Asignación y obtención de valores . 91 

Modificación de tamaño . 92 

Recorrer un array . 92 

Arrays multidimensionales . 93 

Operadores.95 

Operadores aritméticos.95 

Potenciación: A . 95 

Multiplicación: *. 95 

División real: /. . 96 

División entera: 1. 96 

Resto: Mod . 96 

Suma: + . 97 

Resta: - . 98 

Operadores de concatenación: &, +.98 

Operadores abreviados de asignación.99 

Potencia: A =. 99 

Multiplicación: *=. 99 

División real: /=. 100 

División entera: 1=. 100 

Suma: +=. 100 

Resta: -=. 101 

Concatenación: &= . 101 

Operadores de comparación.102 

Comparación de cadenas . 102 

La función Asc() . 104 

La función Chr() . 104 

Comparación de cadenas en base a un patrón. El operador Like . 105 

Comparación de objetos. El operador Is . 107 

Operadores lógicos y a nivel de bit.109 

And . 109 

Uso de paréntesis para mejorar la legibilidad de expresiones . 110 

Not . 111 

Or . 112 

Xor . 113 

AndAlso . 114 

OrElse . 115 

Prioridad de operadores.115 

Prioridad entre operadores del mismo grupo . 115 

Prioridad entre operadores de distintos grupos . 117 

USO DE PARÉNTESIS PARA ALTERAR LA PRIORIDAD DE OPERADORES. 117 

PROCEDIMIENTOS.119 

División de una línea de código.119 

Escritura de varias sentencias en la misma línea.120 

Procedimientos.120 

Sintaxis de un procedimiento Sub . 121 

Llamada a un procedimiento Sub . 122 

Sintaxis de un procedimiento Function . 122 

Llamada a un procedimiento Function . 124 


7 
























































Paso de parámetros a procedimientos . 125 

Protocolo de llamada o firma de un procedimiento . 125 

Tipo de dato de un parámetro . 125 

Modos de paso de parámetros a un procedimiento . 126 

Paso por valor (ByVal).126 

Paso por referencia (ByRef).127 

Paso de parámetros por posición y por nombre . 128 

Parámetros opcionales . 129 

Array de parámetros . 130 

Sobrecarga de procedimientos . 131 

Lista desplegable “Nombre de método”, en el editor de código.135 

ESTRUCTURAS DE CONTROL.137 

Selección.137 

If. .End If. . 137 

Decisión simple.138 

Decisión simple en una línea.139 

Decisión doble.140 

Decisión doble en una línea.140 

Decisión múltiple.141 

La función IIfi ) . 142 

Select Case...EndSelect . 143 

Repetición.145 

While...End While . 145 

Do...Loop . 145 

Condición al principio.146 

Condición al final.146 

Sin condición.147 

For...Next . 147 

For Each...Next . 149 

Anidación de estructuras de control.150 

Anidación de estructuras de selección . 150 

Anidación de estructuras de repetición . 150 

Anidación de estructuras de distinto tipoy a varios niveles . 151 

Anidación incorrecta de estructuras . 152 

Construcciones derivadas de las estructuras de control.152 

Contadores . 152 

Acumuladores . 153 

Interruptores . 153 

Bifurcaciones incondicionales con Goto.154 

ORGANIZACIÓN Y ÁMBITO DE LOS ELEMENTOS DEL LENGUAJE.157 

Archivos y módulos de código en un programa.157 

Agregar un nuevo módulo (y archivo) de código . 159 

Crear un nuevo módulo dentro de un fichero existente . 160 

Cambiar el nombre de un fichero de código . 161 

Añadir al proyecto un fichero de código existente . 161 

Lista desplegable “Nombre de clase”, en el editor de código . 162 

Excluir y eliminar ficheros de código del proyecto . 163 

Reglas de ámbito.163 

Ambito de procedimientos . 164 

Público.164 

Privado.166 

Ambito de variables . 167 

Ámbito a nivel de procedimiento.167 
























































Ámbito a nivel de bloque.168 

Ámbito a nivel de módulo.169 

Ámbito a nivel de proyecto.170 

Periodo de vida o duración de las variables.171 

Variables Static.171 

Convenciones denotación.172 

Variables . 173 

Constantes . 174 

FUNCIONES DEL LENGUAJE.175 

La función como elemento de soporte al programador.175 

Funciones de comprobación de tipos de datos.175 

lsNumeñc() . 176 

IsDate() . 177 

IsArray() . 177 

Funciones numéricas.178 

Int(),Fix() . 178 

Randomize( ) . 178 

Rnd() . 178 

Funciones de cadena de caracteres.180 

Len() . 180 

Space( ) . 180 

InStrt) . 180 

InStrRev( ) . 181 

StrComp() . 181 

Left() . /A/ 

Right() . 182 

Mid() . 182 

Replace() . 183 

LTrim(), RTrim(), Trim() . 183 

UCase(), LCase() . 184 

StrConv() . 184 

Splitf) . 185 

Join() . 185 

Format() . 186 

Funciones de fecha y hora.189 

Now() . 189 

DateAdd() . 189 

DateDiffO . 189 

DatePart() . 189 

Configurar el punto de entrada al programa.190 

MÚLTIPLES ENTRADAS AL PROGRAMA MEDIANTE DISTINTOS MAIN( ). 192 

TÉCNICAS Y DEPURACIÓN.195 

TÉCNICAS DE PROGRAMACIÓN. 195 

RECURSIVIDAD. 195 

BÚSQUEDA. 196 

Búsqueda lineal . 196 

Búsqueda binaria . 197 

Ordenación.198 

Ordenación por intercambio . 198 

Ordenación por inserción . 199 

Ordenación por selección . 200 

Ordenación rápida . 200 

Ordenación rápida con valor de referencia central.201 


9 
























































Ordenación rápida con valor de referencia al comienzo.201 

Fusión.203 

El depurador.204 

Modo de depuración.204 

Modo de interrupción.204 

Formas de ejecución del código en el depurador.205 

Puntos de interrupción.206 

Inserción . 206 

Propiedades . 207 

Punto de interrupción a nivel de procedimiento . 208 

Habilitar y deshabilitar . 209 

Eliminar . 210 

La ventana Puntos de interrupción . 210 

Inspecciones.211 

Ventanas adicionales en el IDE para la depuración.212 

Ventana Locales.212 

Ventana Inmediato.213 

Ventana Pila de llamadas.213 

Ventana Módulos.214 

Ventana Resultados.214 

Ventana Desensamblador.214 

PROGRAMACIÓN ORIENTADA A OBJETO (OOP).217 

Las ventajas de la programación orientada a objeto.217 

Del enfoque procedural al enfoque orientado a objeto.217 

Abordando un problema mediante programación procedural.217 

LOS FUNDAMENTOS DE LA PROGRAMACIÓN ORIENTADA A OBJETO.219 

Objetos.220 

Clases.220 

Instancias de una clase.221 

Características básicas de un sistema orientado a objeto.221 

Abstracción . 222 

Encapsulación . 222 

Polimorfismo . 223 

Herencia . 223 

Jerarquías de clases.224 

Relaciones entre objetos.224 

Herencia . 224 

Pertenencia . 225 

Utilización . 225 

Reutilización.225 

Análisis y diseño orientado a objetos.225 

Creación de clases.226 

Organización de clases en uno o varios ficheros de código.227 

CÓDIGO DE CLASE Y CÓDIGO CLIENTE.228 

Reglas de ámbito generales para clases.228 

1NSTANCIACIÓN DE OBJETOS.228 

Miembros de la clase.229 

Definir la información de la clase.229 

Creación de campos para la clase.230 

Creación de propiedades para la clase.231 

Ventajas en el uso de propiedades.232 

Encapsulación a través de propiedades.232 

Propiedades de sólo lectura o sólo escritura.234 

Propiedades virtuales.236 

























































Nombres de propiedad más naturales.237 

Propiedades predeterminadas.238 

MÉTODOS Y ESPACIOS DE NOMBRE.241 

Creación de métodos para la clase.241 

¿Cuándo crear una propiedad y cuándo un método?.245 

La estructura With...End With.247 

Resultados distintos en objetos de la misma clase.247 

Uso de Me para llamar a los miembros de la propia clase.248 

Sobrecarga de métodos o polimorfismo, en una misma clase.249 

Enlace (binding) de variables a referencias de objetos.251 

Enlace temprano . 251 

Enlace tardío . 252 

Espacios de nombres (namespaces).254 

LIBRERÍAS DE CÓDIGO (BIBLIOTECAS) Y ENSAMBLADOS EXTERNOS.259 

La reutilización del código.259 

Los INICIOS DE LAS LIBRERÍAS.260 

Librería con formato de enlace dinámico.261 

Librerías de clases.262 

El ensamblado como pieza de construcción de aplicaciones.263 

Creación de librerías de clases desde VB.NET .263 

Llamadas a una librería desde un ejecutable.265 

Crear espacios de nombres adicionales en una librería.266 

Facilitar el desarrollo a través de una solución multiproyecto.267 

CONSTRUCTORES Y HERENCIA.269 

MÉTODOS CONSTRUCTORES.269 

Herencia.271 

Todas las clases necesitan una clase base.272 

Reglas de ámbito específicas para clases.273 

Protected . 274 

Friend . 275 

Protected Friend. . 276 

Herencia y sobrecarga de métodos.276 

MyBase, acceso a los métodos de la clase base.278 

Herencia y sobre-escritura de métodos.278 

Diferencias entre sobrecarga y sobre-escritura en base al tipo de enlace.281 

La palabra clave MyClass.283 

OCULTAMIENTO DE MIEMBROS DE UNA CLASE.284 

Herencia y métodos constructores.288 

Clases selladas o no heredables.289 

Clases abstractas o no instanciables.290 

ELEMENTOS COMPARTIDOS E INTERFACES.293 

Comprobación del tipo de un objeto y moldeado (casting).293 

Miembros compartidos (shared) de una clase.296 

Definir una clase como punto de entrada de la aplicación.298 

Interfaces.299 

Estructuras.304 

Creación y manipulación de estructuras . 304 

Estructuras o clases, ¿cuál debemos utilizar? . 306 

La estructura del sistema DateTime . 307 

Enumeraciones.308 

TIPOS DE DATOS COMO OBJETOS. EVENTOS.313 


11 






















































LOS TIPOS DE DATOS TAMBIÉN SON OBJETOS.313 

Manipulación de cadenas con la clase String.314 

Conversión de tipos con la clase Convert.318 

La estructura Char.319 

El tipo Date (fecha).320 

Operaciones aritméticas, la clase Math.320 

Formateo de valores.321 

Eventos. ¿Qué es un evento?.325 

Eventos en VB.NET .325 

Programación estrictamente procedural.325 

Un escenario de trabajo sin eventos.325 

Programación basada en eventos.326 

Esquema básico de un sistema orientado a eventos.327 

El emisor de eventos.327 

El receptor de eventos.328 

Conexión de un emisor de eventos con un manipulador de eventos.329 

Enlace estático de eventos.329 

Enlace dinámico de eventos.331 

ARRAYS.333 

Aspectos básicos.333 

La clase Array.334 

Declaración.334 

Asignación y obtención de valores.335 

Recorrer el contenido.336 

Paso de arrays como parámetros, y devolución desde funciones.337 

Clonación.338 

Copia.339 

iNICIALIZACIÓN DE VALORES.340 

Ordenación.341 

Búsqueda.342 

Arrays multidimensionales.343 

MANIPULACIÓN DE ERRORES.345 

Errores y excepciones.345 

Manipuladores de excepciones.345 

Tipos de tratamiento de error en VB.NET .346 

Manipulación estructurada de errores.346 

La estructura Try...End Try . 346 

La clase Exception . 348 

Captura de excepciones de diferente tipo en el mismo controlador de errores . 350 

Establecer una condición para un manipulador de excepciones . 351 

La influencia del orden de los manipuladores de excepciones . 353 

Forzar la salida de un controlador de errores mediante Exit Try . 354 

Generación manual de excepciones . 355 

Manipulación no estructurada de errores.356 

El objeto Err . 356 

On Error . 356 

On Error Goto Etiqueta . 356 

On Error Resume Next . 357 

Creación de errores con el objeto Err . 358 

On Error Goto 0 . 358 

MANIPULACIÓN DE ARCHIVOS.361 

¿Qué es un archivo?.361 























































System.10, el punto de partida para el manejo de archivos.361 

Objetos Stream.362 

Laclase StreamWriter.362 

Laclase StreamReader.364 

La clase FileStream.366 

Manipulación de archivos mediante las clases File y FileInfo.367 

Manipulación de directorios mediante las clases Directory y DirectoryInfo.369 

Laclase Path.371 

FORMULARIOS WINDOWS.373 

Interfaces de ventana. Formularios y controles.373 

System.Windows.Forms.373 

Hola Mundo desde un formulario Windows.374 

Formularios.374 

Controles.377 

Label.377 

Ejecutando la aplicación.379 

El código del formulario.380 

Cambiando el nombre del formulario.381 

Iniciar el formulario desde Main( ).382 

Otros controles básicos.384 

BUTTON.384 

Codificación de los eventos de controles.385 

TextBox.388 

CheckBox.390 

RadioButton.391 

GroupBox.392 

ListBox.393 

ComboBox.394 

MENÚS.396 

Controles de tipo menú . 396 

Diseño de menús . 396 

Codificación de menús . 398 

BIBLIOGRAFÍA Y RECURSOS.401 

Bibliografía.401 

Recursos en Internet.401 


13 







































Programación y diseño de algoritmos 


Las ventajas del uso de ordenadores 

Todas aquellas personas que hayan tenido acceso a un ordenador o computador, habrán podido 
comprobar cómo estas máquinas permiten realizar trabajos que incluyen una elevada y compleja 
cantidad de cálculos, de forma efectiva, y a una gran velocidad de proceso. 

Para que un ordenador pueda realizar operaciones y resolver problemas necesita, además de sus 
componentes físicos, un elemento lógico que es el que permite realizar dichas tareas, dicho elemento 
es el programa, que al ser ejecutado por el ordenador, lleva a cabo las operaciones pertinentes, 
proporcionando el resultado correspondiente, a una velocidad infinitamente superior que si 
hubiéramos tenido que realizarlas de forma manual. 

La creación de un programa para ordenador no es una labor trivial, requiere un adiestramiento en una 
disciplina: la programación, y en sus herramientas informáticas: los lenguajes de programación, que 
nos permitirán su diseño y creación 

La descripción de las técnicas de programación, y de un lenguaje de programación en concreto: Visual 
Basic .NET (VB.NET, como también lo denominaremos a lo largo del texto), son los objetivos 
perseguidos en este texto, cuya finalidad es la de mostrar al lector las fases de creación de una 
aplicación informática, y de iniciarle en el apasionante arte de la programación. 
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¿Qué es la programación? 

La programación de ordenadores es aquella rama de las tecnologías de la información, encargada del 
diseño y escritura de las instrucciones o sentencias que un ordenador debe ejecutar para completar una 
operación o resolver un problema. 

Al conjunto de operaciones que lleva a cabo un ordenador para proporcionar un determinado resultado 
se le denomina proceso, el conjunto de varios procesos que realizan tareas comunes, conformando de 
esta manera una única entidad, la denominamos programa. 

Por ejemplo, un proceso puede ser la suma de los importes que componen las líneas de una factura; 
otro, el cálculo de los impuestos a aplicar sobre el importe de la factura; la obtención de los datos del 
cliente al que vamos a enviar la factura sería otro proceso; si todos estos procesos y otros similares los 
juntamos, tendríamos un programa de facturación. 

Adicionalmente, si tenemos un proceso que calcula las rutas y distancias de los vehículos de una 
empresa de transportes, podríamos añadirlo al programa anterior, aunque la lógica nos indica que no 
tendría mucho sentido, por lo cual, este proceso y los que tengan que ver con la logística de una 
empresa de transporte, deberían ubicarse en otro programa diferente. De este modo conseguiremos un 
conjunto de programas mejor organizados, enfocados a resolver tareas concretas, con un mayor 
rendimiento en ejecución. 


¿Qué es un lenguaje de programación? 

Un lenguaje de programación es la principal herramienta de las utilizadas por el programador para la 
creación de programas. Todo lenguaje se compone de un conjunto más o menos extenso de palabras 
claves y símbolos, que forman la denominada sintaxis del lenguaje, y una serie de normas o reglas 
para el correcto uso y combinación de tales palabras y símbolos. 


¿Qué es un programa? 

Como describimos en una definición anterior, un programa (o aplicación, como también lo 
denominaremos) es un conjunto de instrucciones escritas en un lenguaje de programación, que pueden 
llevar a cabo uno o múltiples procesos, normalmente relacionados, aunque sin ser esto obligatorio, y 
que en definitiva nos permiten resolver uno o más problemas. A las instrucciones o código que forman 
parte de un programa se le denomina código fuente. 

Como hemos mencionado anteriormente, para crear un programa debemos conocer los elementos del 
lenguaje a emplear y sus normas de utilización. Por ejemplo, el lenguaje Visual Basic .NET dispone 
de las palabras clave Dim e Integer para declarar variables, y los símbolos = y + para asignar valores y 
realizar operaciones (no se preocupe el lector si todavía no comprende estos conceptos, serán 
explicados en un tema posterior). Para poder crear una variable y realizar una operación con ella, no 
basta saber cuáles son las palabras claves y símbolos a utilizar, sino que también debemos saber cómo 
utilizar estos elementos. El Código fuente 1 muestra una forma incorrecta y otra correcta de crear una 
variable y asignar una operación de suma a la misma. 


1 incorrecto 
Integer MiDato Dim 
MiDato + 50 = 700 
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' correcto 

Dim MiDato As Integer 
MiDato = 50 + 700 

Código fuente 1 

En el primer caso, si intentamos ejecutar el código incorrecto se producirá un error, ya que no se atiene 
a las normas de escritura de código del lenguaje, cosa que sí sucede en el caso siguiente. 


Etapas en el desarrollo de un programa 

No existen una serie de normas absolutas en el proceso de creación de un programa, ya que como 
comentamos en un apartado anterior, la programación es una actividad creativa, en la que confluyen, 
por un lado, los requerimientos del problema a afrontar, las capacidades que nos proporciona el 
lenguaje empleado por otro, y la pericia e inventiva del programador para resolver dicho problema. 

No obstante, sí podemos establecer unas pautas generales a seguir, en lo que se puede llamar ciclo de 
desarrollo del programa, y que podemos dividir en dos grandes etapas, compuestas a su vez cada una 
de una serie de pasos. A continuación se muestran los puntos constituyentes de este proceso. 

• Análisis del problema. 

o Estudio del problema, 
o Desarrollo del algoritmo, 
o Comprobación del algoritmo. 

• Implementación del programa. 

o Escritura del programa en base a los resultados obtenidos del algoritmo, 
o Ejecución del programa 
o Depuración del programa, 
o Documentación del programa. 

En los siguientes apartados y temas del texto iremos realizando una descripción más detallada de los 
puntos más importantes de este esquema. 


Análisis del problema 

Esta etapa consiste en investigar el problema a resolver, y desarrollar los procesos necesarios para ello. 
Tras estudiar el problema, deberemos diseñar un algoritmo que lo solvente satisfactoriamente, y 
realizar diversas comprobaciones para verificar su correcto funcionamiento. 

Los siguientes apartados describen los principales puntos a desarrollar durante la fase de análisis. 
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Estudio del problema 

El primer paso en todo análisis para el desarrollo de un programa, consiste en estudiar cuidadosamente 
el problema planteado, e identificar, por un lado, la información de que disponemos para resolverlo, y 
por otro, el resultado a obtener. La datos disponibles se denominan información de entrada, mientras 
que el resultado se denomina información de salida. Pongamos el siguiente ejemplo: 

"Una empresa de desarrollo de software recibe el encargo de realizar un programa. Dicha empresa 
cobra la hora de programación a 30 euros, empleando 45 horas en desarrollar el programa. Al importe 
total de horas trabajadas se aplicará un impuesto del 16%. Averiguar el importe total a pagar antes y 
después de impuestos y la cantidad de impuesto aplicado". 

La información obtenida tras este enunciado sería la siguiente: 

• Entrada: 




o Importe/hora: 30 euros, 
o Horas trabajadas: 45. 
o Impuesto a aplicar: 16%. 

Salida: 

o Total antes de impuestos: 1350 euros, 
o Impuestos: 216 euros, 
o Total después de impuestos: 1566 euros. 


Es muy importante para resolver el problema, el disponer de la suficiente información, ya que sin ella, 
no podremos obtener los datos que constituirán el resultado del planteamiento. Supongamos este otro 
problema: 

"Una oficina compra cartuchos para sus impresoras. Obtener el importe total a pagar y el porcentaje de 
impuesto correspondiente". 


En este caso no podemos resolver el problema, ya que tras analizarlo, falta la información de entrada 
como el número de cartuchos comprados, importe por cartucho y el porcentaje de impuesto a aplicar, 
por lo que resulta imposible obtener los datos de salida. 


Algoritmos 

Un algoritmo se puede definir como el conjunto de acciones a realizar para resolver un determinado 
problema. 

El modo de afrontar la creación de un algoritmo, pasa por descomponer el problema planteado en 
problemas más pequeños y fáciles de resolver independientemente. Una vez resueltos los problemas 
independientes, se unirán todos, obteniendo de esta forma el correspondiente algoritmo. 

El proceso indicado por un algoritmo debe ser claro y tener sus pasos bien definidos, de forma que si 
realizamos dicho proceso varias veces, empleando siempre los mismos valores en el algoritmo, 
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deberemos obtener el mismo resultado. De igual forma, en un algoritmo deben distinguirse las 
siguientes fases: entrada, proceso y salida. 

Para comenzar a familiarizamos con el diseño y escritura de algoritmos tomemos el siguiente ejemplo: 
desarrollar el algoritmo para escuchar un CD de música. El Código fuente 2 muestra los pasos a seguir 
para confeccionar este algoritmo. 


1. 

Inicio 


2 . 

Tomar un CD 


3 . 

Introducirlo en el 

reproductor 

4 . 

Pulsar el botón de 

comienzo 

5 . 

Escuchar la música 


6 . 

Fin 



Código fuente 2 


Observemos cómo los datos de entrada serían el CD a reproducir; el proceso estaría representado por 
los pasos dados con el reproductor para ponerlo en funcionamiento; mientras que la salida sería la 
música reproducida que escucharíamos. 

Cuando finalicemos la escritura de un algoritmo, es muy conveniente realizar una ejecución de prueba 
para el mismo, empleando datos reales para comprobar que el resultado es el adecuado. En el caso de 
que obtengamos resultados no esperados, o bien, consideremos que es posible optimizar el proceso de 
ejecución del algoritmo, modificaremos las partes que consideremos necesarias para mejorarlo; este 
proceso se denomina depuración o refinamiento. 

Tomando este concepto de depuración, y aplicándolo al anterior algoritmo para escuchar un CD, 
podríamos refinar el proceso añadiendo los elementos adicionales que se muestran en el Código fuente 
3. 


i. 

Inicio 


2 . 

Tomar un CD 


3 . 

Pulsar el botón de encendido del 

reproductor 

4 . 

Abrir la bandeja del reproductor 


5 . 

Introducir el CD en la bandeja 


6 . 

Cerrar la bandeja 


7 . 

Ajustar el volumen 


8 . 

Pulsar el botón de comienzo 


9 . 

Escuchar la música 


10 

. Fin 


Código fuente 3 


De esta manera tenemos en cuenta otros factores como el hecho de que el reproductor pueda estar 
apagado o el volumen de reproducción no sea el adecuado. 

Una vez que hemos realizado el análisis del algoritmo, necesitamos un elemento que nos permita 
representarlo. Si bien no existe una técnica única para la representación de algoritmos, disponemos de 
algunas que, dadas sus características, nos facilitan dicha tarea, por lo que son mayormente utilizadas. 
Entre los medios para la creación de algoritmos, tenemos los diagramas de flujo, el pseudocódigo, y 
los diagramas Nassi-Schneiderman. 
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Diagramas de flujo 

Un diagrama de flujo consiste en una representación gráfica, basada en símbolos, de los pasos que 
debe realizar un algoritmo. Estos símbolos pueden clasificarse, de mayor a menor importancia, en: 

• Básicos. 

o Terminador. Indica el principio o fin de un algoritmo, o bien una pausa. Ver Figura 1. 

CZZ) 

Figura 1. Tenninador. 


o Datos. Contiene información de entrada o salida, que será utilizada por el algoritmo 
para obtener un resultado. Ver Figura 2. 


Figura 2. Datos. 


o Proceso. Indica una o más operaciones a realizar durante la ejecución del algoritmo. 
Ver Figura 3. 


Figura 3. Proceso. 


o Decisión. Contiene una operación que da como resultado un valor lógico, en función 
de la cual, el flujo del algoritmo se bifurcará en una determinada dirección. Ver Figura 
4. 



o Dirección. Indica el camino seguido por el flujo del algoritmo. También suelen 
utilizarse líneas simples para conectar símbolos en el diagrama. Ver Figura 5. 
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► 


Figura 5. Dirección. 


• Principales. 

o Decisión múltiple. Variante del símbolo de decisión, en la que el resultado de la 
operación que contiene puede ser uno de varios posibles, en lugar del simple 
verdadero o falso de la decisión sencilla. Ver Figura 6. 



o Conectores. Unen dos puntos de un diagrama. El circulo indica una conexión dentro 
de la misma página, y el conector de dirección entre páginas diferentes del diagrama. 
Ver Figura 7. 


o a 

Figura 7. Conectores. 


o Rutina. Indica una llamada a un procedimiento que es externo al algoritmo actual. Una 
vez procesado dicho procedimiento, el flujo del proceso volverá a este punto y 
continuará con el siguiente paso del algoritmo. Ver Figura 8. 


Figura 8. Rutina. 


• Complementarios. 

o Teclado. Indica una acción de entrada de datos en el algoritmo. Ver Figura 9. 
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Figura 9. Teclado. 


o Pantalla. Indica una acción de salida de datos en el algoritmo. Ver Figura 10 


Figura 10. Pantalla. 


o Impresora. Indica una acción de salida de datos en el algoritmo. Ver Figura 11. 



Figura 11. Impresora. 


En el proceso de diseño de un diagrama de flujo, se indicarán las operaciones mediante el símbolo 
correspondiente, introduciendo dentro del símbolo si es necesario, o este lo requiere, una nota con la 
operación que va a realizarse. 

Un algoritmo no sirve única y exclusivamente para ser aplicado en la resolución de problemas 
informáticos, es posible emplear algoritmos para resolver los más variados tipos de problema, incluso 
tareas simples. 

Como ejemplo ilustrativo de esta situación, vamos a mostrar un diagrama con el algoritmo de un 
problema tan natural como abrir una puerta con una llave. Ver Figura 12. 

Anteriormente hemos mencionado la depuración, como la técnica que nos permite corregir o mejorar 
el proceso desarrollado por un algoritmo o programa; dicho sistema puede ser aplicado a este 
algoritmo que acabamos de representar en forma de optimización. El anterior ejemplo sólo contempla 
la posibilidad de una llave para abrir la puerta, pero normalmente suele ocurrir que tenemos varias 
llaves, entre las que hemos de elegir la correcta. Teniendo este aspecto en cuenta, depuremos el 
anterior algoritmo tal y como se muestra en la Figura 13, de manera que nos sirva para introducir de 
paso un elemento de decisión. 
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Figura 12. Diagrama de flujo para el algoritmo de abrir una puerta con llave. 



Figura 13. Diagrama para el algoritmo de apertura de puerta, incluyendo depuración. 
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Operadores e identificadores en los diagramas de flujo 

Dentro de los elementos de un diagrama de flujo, es frecuente la necesidad de realizar operaciones 
para obtener diversos resultados. En función de la acción o partícula de la acción a representar, 
emplearemos un conjunto de símbolos en mayor o menor medida generalizados, de los cuales pasamos 
a describir los más comunes. 

Cuando necesitemos indicar una operación aritmética, emplearemos los siguientes símbolos: 

• + Suma. 

• - Resta. 

• * Multiplicación. 

• / División. 

• \ División entera. 

• A Potenciación. 

Para establecer una comparación utilizaremos estos símbolos: 

• > Mayor que. 

• >= Mayor o igual que. 

• < Menor que. 

• <= Menor o igual que. 

• = Igual que. 

Al realizar una operación, el resultado necesitaremos guardarlo en algún sitio; para ello, disponemos 
de los llamados identificadores, que son elementos que representan un valor utilizado a lo largo del 
desarrollo del algoritmo. El valor contenido en un identificador puede variar según las operaciones que 
realicemos con el mismo. A un identificador le daremos un nombre cualquiera, siendo recomendable 
que guarde cierta relación con el valor que contiene. En el próximo ejemplo se utilizarán 
identificadores, de forma que el lector pueda comprobar cómo se lleva a cabo su uso. 

El símbolo igual ( = ), además de para una comparación, se utiliza también para asignar el resultado de 
una operación a un identificador, situando el identificador al que vamos a asignar el valor a la 
izquierda del símbolo, y la operación a realizar en la derecha. 

En el caso de necesitar representar una entrada o salida de datos, podemos usar las palabras Lectura y 
Escritura, seguidas de los identificadores a los que se asignará, o de los que se obtendrá un valor. 

En el siguiente ejemplo, representaremos un algoritmo mediante un diagrama de flujo, enfocado al 
siguiente problema: calcular el importe de una factura emitida por una empresa de consumibles que 
vende cartuchos de impresora. Cada cartucho tiene un precio de 12 euros, y el usuario debe de 
introducir la cantidad de cartuchos vendidos, y calcular el total, mostrándolo al final. Este algoritmo 
nos servirá además para comprobar la representación de las entradas y salidas de información en un 
diagrama. Ver Figura 14. 
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TotalFac = Cartuchos :| 12 


I 




filial 



Figura 14. Diagrama de flujo con el algoritmo para calcular el importe de cartuchos de impresora. 


Supongamos ahora, que en el anterior algoritmo hemos olvidado realizar el cálculo del impuesto a 
aplicar sobre el importe de los cartuchos. Para solucionar este inconveniente realizaremos un proceso 
de depuración sobre dicho algoritmo, obteniendo una nueva versión, representada en el diagrama de la 
Figura 15. 

Los algoritmos representados hasta el momento, se basan en un proceso simple de toma de datos, 
cálculo de operaciones, y muestra de resultados. Pero una de las ventajas de la programación consiste 
en la posibilidad de repetir, un número determinado de veces, un mismo proceso, dentro de una 
estructura repetitiva denominada bucle. 

Entre las operaciones a realizar dentro de una estructura repetitiva, podemos definir un identificador 
que actúe como contador, y que controle el número de veces que llevamos ejecutada la estructura, para 
saber en qué momento debemos finalizar su ejecución y seguir con el resto del proceso. 

Otra particularidad relacionada con las estructuras repetitivas, consiste en acumular un valor en un 
identificador, en cada paso o ejecución de la estructura. Para ello, debemos hacer algo tan sencillo 
como poner dicho identificador o acumulador, además de en la parte izquierda de la asignación, 
también en la parte derecha. 

El algoritmo desarrollado a continuación, muestra un ejemplo de los elementos que acabamos de 
mencionar. Vamos a definir un bucle controlado por un contador, que tiene un identificador con el 
nombre Pasos, el cuál estaremos ejecutando mientras que dicho contador no sea 10. En cada paso del 
bucle, el usuario debe introducir un dato que se depositará en el identificador Valor; dicho dato se 
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almacenará en el identifícador Resultado, acumulándolo al valor que previamente hubiera en 
Resultado. Cuando el contador haya alcanzado el valor adecuado, se finalizará la ejecución del bucle, 
escribiendo el resultado del acumulador. Ver Figura 16. 


comienzo 


Lectura 
Cartuchos. 


Importe Cartuchos = Cartuchos * 12 
Impuesto = Importe Cartuchos * 016 
TotalFac = Importe Cartuchos + Impuesto 


Escritura 
! Importe Cartuchos, 
Impuesto, 
TotalFac 


( fl " al ) 

Figura 15. Diagrama con algoritmo para calcular el importe de cartuchos de impresora e impuesto. 



Figura 16. Diagrama de algoritmo con bucle, contador y acumulador. 
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Como ejemplo integrador de los aspectos vistos hasta el momento, el siguiente caso muestra la 
creación de un algoritmo algo más complejo y completo. El problema a desarrollar se basa en un 
programa de venta de artículos; cada cliente puede comprar un número de artículos variable, por lo 
que el usuario del programa debe ir introduciendo el precio de cada artículo. Una vez hecho esto, se 
comprobará el precio del artículo, y si sobrepasa el importe de 30, se le aplicará un descuento del 2%. 
En el caso de que el importe sea menor, se le otorgará al cliente un punto de bonificación sobre el 
artículo para la próxima compra. Cuando se hayan procesado todos los artículos, deberemos obtener el 
importe total de la compra y la cantidad de puntos de bonificación, finalizando de esta manera el 
algoritmo. El diagrama de flujo correspondiente quedaría como muestra la Figura 17. 



Figura 17. Diagrama de flujo del algoritmo de compra de artículos. 


Pseudocódigo 

El sistema de representación de algoritmos mediante diagramas de flujo, si bien es un medio gráfico y 
fácil de comprender, presenta el inconveniente de la lentitud en su proceso de creación, y dificultad de 
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mantenimiento, ya que un cambio de planteamiento en un diagrama largo, puede significar el rediseño 
de gran parte del mismo. 

Como solución a este problema, se hace necesaria una técnica de diseño de algoritmos, que permita 
una creación más ágil del mismo, mediante un lenguaje sencillo de escribir y mantener. La respuesta la 
encontramos en el pseudocódigo. 

El pseudocódigo consiste en una forma de expresar el desarrollo de un algoritmo, empleando palabras 
de nuestro lenguaje cotidiano, junto con símbolos y palabras clave genéricas de la mayoría de 
lenguajes de programación, es decir, un sistema que se encuentra a medio camino entre el lenguaje 
natural y el de programación. 

No hay un conjunto de normas establecidas o sintaxis para la escritura de pseudocódigo; existen una 
serie de recomendaciones para el desarrollo de algoritmos mediante esta técnica, quedando el resto en 
manos de cada programador, que lo aplicará según sus necesidades o experiencia. 

Partiendo de lo anterior, cuando en pseudocódigo necesitemos realizar operaciones que impliquen un 
cálculo matemático o comparación entre elementos, emplearemos los operadores explicados en el 
anterior apartado dedicado a los diagramas de flujo, cuya finalidad es equivalente. 

En las indicaciones de principio, fin del algoritmo, lectura y escritura de datos, usaremos también las 
mismas palabras clave que empleamos en los diagramas de flujo. 

Para estructuras repetitivas o bloques de instrucciones que se ejecuten basados en una condición, 
podemos utilizar las siguientes palabras: SL.FinSi, Para...Siguiente, Mientras...FinMientras, 
Seleccionar Caso...FinCasos. 

Como medio de facilitar la legibilidad de las líneas del algoritmo, indentaremos aquellas que formen 
parte de un bloque o estructura. 

Si debemos escribir comentarios aclaratorios en las operaciones del algoritmo, podemos emplear dos 
barras invertidas //, comida ', llaves { }, etc. 

Comencemos con un ejemplo sencillo de pseudocódigo, basado en un problema anteriormente 
comentado, sobre la apertura de una puerta después de elegir la llave correcta; el algoritmo quedaría 
resuelto mediante este sistema como muestra el Código fuente 4. 


Apertura 


Comienzo 

elegir una llave 

Si podemos introducir llave en cerrojo 
abrir la puerta 
FinSi 
Final 

Código fuente 4 


Pasemos a continuación, a otro de los ejemplos anteriores realizados para un diagrama; de esta forma 
podremos establecer las comparaciones necesarias entre una y otra técnica. El pseudocódigo a escribir 
será para el algoritmo de compra de cartuchos de impresora, que incluye cálculo de impuestos. Ver 
Código fuente 5. 
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CompraCartuchos 


Comienzo 

Lectura Cartuchos 
ImporteCartuchos = Cartuchos * 12 
Impuesto = ImporteCartuchos * 0.16 
TotalFac = ImporteCartuchos + Impuesto 
Escritura ImporteCartuchos, Impuesto, TotalFac 
Final 

Código fuente 5 


Finalmente, convertiremos a pseudocódigo el diagrama del ejemplo sobre el proceso de compra de 
artículos. Ver Código fuente 6. 


CompraArticulos 


Comienzo 

Mientras haya artículos 
Lectura Precio 
Si Precio > 30 

Descuento = Precio * 0.02 
Precio = Precio - Descuento 
Sino 

PuntosBonif = PuntosBonif + 1 
FinSi 

TotalCompra = TotalCompra + Precio 
FinMientras 

Escritura TotalCompra, PuntosBonif 
Final 

Código fuente 6 


Diagramas Nassi-Schneiderman 

Este tipo de diagramas, también denominados N-S, se basan en la representación de los pasos del 
algoritmo mediante recuadros adyacentes, eliminando los símbolos de flechas y líneas de conexión. Al 
mismo estilo de los diagramas de flujo, podemos situar una o varias acciones en un único recuadro 

En el caso más simple, una ejecución de varias instrucciones sin ningún tipo de condición o desvío en 
el flujo del programa, como es el ejemplo de apertura de llave sin selección, un diagrama de este tipo 
para dicho algoritmo quedaría cómo se muestra en la Figura 18. 



Figura 18. Diagrama N-S para representar el algoritmo de apertura de puerta con llave. 
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El algoritmo de apertura de llave, pero en esta ocasión añadiendo un refinamiento para realizar la 
selección de llave, se representaría según muestra la Figura 19. 



Figura 19. Diagrama N-S para algoritmo de apertura de puerta con selección de llave. 


En los diagramas N-S, como observará el lector en el siguiente ejemplo, los bloques de instrucciones 
que están a un mayor nivel de profundidad, y que en pseudocódigo deberíamos indentar, se 
representan en recuadros interiores al cuadro principal del diagrama. Veamos en la Figura 20, como 
quedaría el algoritmo de compra de artículos en un diagrama de este tipo, eliminaremos la condición 
de que el artículo tenga descuento o bonificación para no recargar en exceso el diagrama. 


comienzo 


mientras haya artículos 

TotalCompra = TotalCompra + Precio 

fin mientras 

filial 


Figura 20. Diagrama N-S para algoritmo de compra de artículos 
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Implementación del programa 

Cumplimentada la fase de análisis, y obtenido el correspondiente algoritmo mediante alguna de las 
técnicas descritas en el tema anterior, la etapa de implementación consiste en trasladar al ordenador el 
resultado del análisis del problema. 

Para introducir en el ordenador las instrucciones del algoritmo, deberemos utilizar un lenguaje de 
programación, con el que crearemos un programa que tenga las sentencias a ejecutar. Finalizada la 
escritura del programa, procederemos a su compilación, obteniendo un archivo ejecutable con las 
instrucciones en un formato denominado código binario, ya comprensible por el ordenador para su 
ejecución. 

En los próximos apartados se tratan los aspectos del proceso de implementación en lo que respecta a 
los lenguajes de programación, tipos y técnicas; el proceso de creación del ejecutable; una breve 
descripción de la plataforma .NET Framework, como entorno de ejecución de aplicaciones; Visual 
Basic .NET como lenguaje de nuestra elección, su instalación, entorno de desarrollo, y la confección 
de un sencillo programa de prueba. 
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Tipos de lenguaje de programación 

Antes de proceder a escribir el código del programa, debemos elegir el lenguaje de programación que 
mejor se adapte a nuestras necesidades. En función del tipo de problema a resolver, los lenguajes se 
clasifican en los niveles descritos a continuación. 


Lenguajes máquina 

Se trata de lenguajes cuyas instrucciones son directamente comprendidas por el ordenador en el que se 
ejecuta el programa. Su dependencia por lo tanto, con respecto al hardware del ordenador en que 
funcionan es total, por lo que su ejecución es más veloz que cualquier otro tipo de lenguaje que 
podamos emplear. 

Tras la anterior explicación, y ya que este tipo de código es el único que entiende el ordenador de 
modo directo, ¿no sería mejor programar siempre en lenguaje máquina?. 

Como respuesta, y a pesar de la mencionada ventaja, podemos decir que existen inconvenientes muy 
importantes: la vinculación del lenguaje máquina con el hardware del equipo, hace que un programa 
no pueda ser transportable a otro tipo de arquitecturas de ordenador, por lo que deberemos rescribir el 
programa, si necesitamos que sea ejecutado en una máquina con diferente arquitectura que para la que 
originalmente fue diseñado. 

Por otro lado, la escritura de un programa en lenguaje máquina es una labor lenta y compleja, en la 
que el programador no dispone de herramientas de soporte, que le ayuden en su tarea. 


Lenguajes de bajo nivel 

En este tipo de lenguajes, al igual que sucede con los lenguajes máquina, existe una gran dependencia 
con el hardware del equipo en el que se va a ejecutar. No obstante son algo más fáciles de escribir, 
quedando su complejidad en un punto intermedio entre el lenguaje máquina y uno de alto nivel: no es 
tan complicado como el primero, pero exige una mayor curva de aprendizaje que el segundo, debido a 
que se necesita conocer el tipo de máquina en que se va a ejecutar el programa 

Otra característica reside en que el código escrito no es directamente ejecutable en el ordenador, sino 
que ha de pasar por un proceso de traducción de código fuente a código binario denominado 
compilación. El ejemplo más destacable de este tipo de lenguaje es el Ensamblador. 


Lenguajes de alto nivel 

Aportan tipos de datos y estructuras de control entre otros elementos. Igualmente disponen de una 
sintaxis en lenguaje más natural, y un amplio conjunto de funciones internas, que ayudan al 
programador en diversas situaciones, así como un número determinado de utilidades y asistentes que 
ahorran tiempo y trabajo al programador. Visual Basic .NET es uno de los ejemplos de este tipo de 
lenguaje. 
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Modelos de programación 

Un modelo de programación consiste en la técnica empleada para escribir el código de un programa, 
de forma que consigamos la mayor efectividad y optimización al ejecutarlo. El desarrollo de las 
herramientas informáticas ha posibilitado una progresiva evolución en las técnicas de programación, 
con la consiguiente mejora que ello supone, tanto a la hora de la escritura como de la ejecución de un 
programa. A continuación se realiza una descripción de los modelos de programación existentes. 


Programación lineal 

Este es el modelo más tradicional, encontrándose ya en desuso. El código se organiza linealmente, y se 
ejecuta desde la primera línea hasta la última, sin disponer de ningún tipo de estructuración o 
bifurcación. El Código fuente 7 muestra un esquema de este tipo de técnica. 


Instrucciónl 

Instrucción2 

Instrucción3 


InstrucciónFinal 

Código fuente 7 


El inconveniente con este modelo de programación, radica en que si dentro de un algoritmo hay un 
proceso que necesita repetirse un número determinado de veces, se tendrá que repetir la escritura del 
código correspondiente a ese proceso las veces que sean necesarias. 

Pongamos como ejemplo un proceso que necesita abrir un archivo que contiene los datos de facturas, 
y totalizar varias, calculando además, el impuesto a añadir al total. Mediante programación lineal, el 
pseudocódigo de este proceso quedaría como muestra el Código fuente 8. 


Inicio 

Abrir archivo datos facturas 

Obtener Factural 
Obtener Tipolmpuesto 
Sumar LineasFactura 
Calcular TotalFactura 

Obtener Factura2 
Obtener Tipolmpuesto 
Sumar LineasFactura 
Calcular TotalFactura 

Obtener Factura3 
Obtener Tipolmpuesto 
Sumar LineasFactura 
Calcular TotalFactura 
Fin 

Código fuente 8 
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Vemos como hay tres líneas que se repiten, lo cual es un elemento negativo en esta técnica de 
programación, ya que obliga a escribir una mayor cantidad de código, y el mantenimiento del mismo 
se hace más dificultoso. 


Programación procedural 

Para solventar los problemas derivados de la programación lineal apareció la programación 
procedural, que se basa en tomar el código de un programa y dividirlo en partes lógicas con entidad 
propia, denominadas procedimientos o rutinas de código. 

Cada procedimiento se ocupa de resolver una tarea específica, de modo que partiendo de un 
procedimiento inicial o de nivel superior, se llamará a otro procedimiento para que ejecute un 
determinado trabajo, y al finalizar, se devolverá el control o flujo de la ejecución al procedimiento que 
hizo la llamada. Véase el esquema de la Figura 21. 



Figura 21. Esquema de ejecución del código en programación procedural. 


Mediante esta técnica, el ejemplo del cálculo de facturas planteado en el apartado anterior puede 
enfocarse de un modo mucho más optimizado, ya que sólo necesitaremos escribir el código del 
proceso que realiza la totalización y cálculo de impuestos una vez, situarlo en un procedimiento, y 
llamarlo las veces que haga falta. La Figura 22 muestra el esquema de ejecución del código de dicho 
ejemplo. 

Dentro de la programación procedural se utiliza también el concepto de módulo, para hacer referencia 
a una entidad contenedora de procedimientos. Esto quiere decir que podemos utilizar los módulos para 
agrupar funcionalmente o por tipos de proceso, los procedimientos que forman parte de un programa. 

Por ejemplo, si en un programa tenemos procedimientos que se encargan del mantenimiento de 
clientes y otros que realizan la gestión de facturas, podemos crear un módulo para cada categoría de 
procedimiento y de esta manera, realizar una mejor organización del código de la aplicación. Véase el 
esquema de la Figura 23. 
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Inicio 

Procedimiento Principal 

Abrir archivo datos facturas 


Obtener Factural 
C al cul ar Fac tu r a 


Obtener Factura2 
Calcular Factura 


◄. 

Obtener Factura3 

Calcular Factura - 

◄. 

Fin Procedimiento 

Procedimiento CalcularFactura 
Obtener Tipolmpuesto 
Sumar LineasFactura 
Calcular TotalFactura 

Fin Procedimiento . 

Fin 


Figura 22. Ejemplo de código fuente utilizando el modelo de programación procedural. 


Módulo Clientes 


Módulo Facturas 

Procedimiento Alta 

Procedimi ento Modi fic a 
Procedimiento Baja 


Procedimiento Nueva 
Procedimiento Imprimir 
Proc e dimi ento Total izar 


Figura 23. Organización de procedimientos dentro de módulos. 


Programación estructurada 

Como complemento a la programación procedural apareció la programación estructurada, consistente 
en un modelo de programación que utiliza un conjunto de estructuras de control, que simplifican la 
escritura del código y disminuyen el número de errores del programa. 

La programación estructurada también se basa en el uso de procedimientos y módulos de código, pero 
además, dentro del código de un procedimiento, se utilizarán determinadas estructuras proporcionadas 
por el lenguaje, que facilitarán la codificación de los procesos. 
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Para poder comprender mejor esta técnica planteemos el siguiente caso: necesitamos diseñar un 
proceso dentro de un procedimiento, que permita introducir un número de factura y la imprima, pero 
sólo deberá imprimirla si el número es menor o igual a 500. 

Con las técnicas de programación anteriores no disponemos de un elemento que nos permita 
comprobar el número de factura, para poder o no imprimirla. Sin embargo, mediante la programación 
estructurada, podemos utilizar una estructura de decisión, que en pseudocódigo podemos llamar 
SL.FinSi, que realice la mencionada verificación, y proceda con la impresión si todo es correcto. El 
Código fuente 9 muestra el algoritmo para este problema. 


Inicio 

Modulo Principal 

Procedimiento ImprimeFac 
Leer NumFactura 

Si NumFactura <= 500 
Imprimir 
FinSi 

Fin Procedimiento 
Fin Modulo 
Fin 

Código fuente 9 


Trataremos ampliamente todos los tipos de estructuras de control cuando abordemos los elementos del 
lenguaje, de momento este ejemplo sirve para que el lector se forme una idea de cómo mediante la 
programación estructurada, combinamos todos los elementos vistos hasta el momento: módulos, 
procedimientos y estructuras de control, para escribir el código de nuestro programa. 


Programación orientada a objeto (OOP) 

El modelo de programación orientada a objeto (OOP, Object Oriented Programming) se trata de una 
evolución de la programación estructurada, que se basa en focalizar el desarrollo a través de los 
elementos involucrados en un proceso, y no en abordar el problema desde el mismo proceso. 

Esto quiere decir que ante un problema como el mantenimiento de datos de los clientes de una 
empresa, la programación estructurada aborda en primer lugar los procesos a desarrollar: alta, 
modificación, baja, etc. La programación OOP por el contrario, comienza su análisis por el elemento 
sobre el que van a actuar los procesos: el objeto Cliente. 

Por tal motivo, en lugar de hacer simples llamadas a procedimientos como sucede en la programación 
estructurada, empleando técnicas OOP, primeramente creamos el objeto con el que vamos a trabajar, y 
a través del mismo canalizamos todas las llamadas a sus procesos, manipulando también su 
información si es necesario. 

En posteriores temas examinaremos con profundidad las principales características de la programación 
orientada a objeto, ya que se trata de un gran avance logrado en las técnicas de programación 
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Seleccionar el lenguaje de programación más adecuado 

Existen multitud de lenguajes de programación: Visual Basic .NET (el motivo del presente texto), C# 
.NET, Visual C++, Java, Pascal, FORTRAN, etc. Debido a este hecho, cabría formulamos a 
continuación la siguiente cuestión: “ya que debemos usar un lenguaje comprensible para el ordenador 
al desarrollar el programa, ¿no sería más fácil que existiera un único lenguaje con el que poder 
desarrollar todos los programas?, ¿por qué existe tal profusión de lenguajes de programación?”. 

Como respuesta, podemos establecer una analogía entre varios oficios que utilicen herramientas 
manuales. Cada oficio tiene una tarea concreta que resolver, y para ello, el trabajador emplea un 
conjunto de herramientas especializadas que le ayudan en dicha labor. 

El mismo caso podemos aplicar al desarrollo de programas. No es lo mismo crear un programa para 
realizar la facturación de una empresa; que tener que efectuar una serie de operaciones relacionadas 
directamente con los componentes físicos del equipo; o elaborar cálculos científicos avanzados. Por 
este motivo, para cada uno de estos problemas encontraremos un lenguaje que esté especializado en 
alguna de estas áreas: gestión, matemático, hardware, etc.; y será ese el lenguaje que debamos 
emplear, ya que estará dotado de un conjunto de utilidades que ayuden al programador en los aspectos 
concretos que deba resolver. 


El archivo ejecutable y su proceso de creación 

Una vez escrito el programa a partir del algoritmo, en el lenguaje de programación de nuestra elección, 
necesitamos obtener el archivo ejecutable correspondiente. 

El archivo ejecutable es aquel que necesita el ordenador para hacer funcionar el programa, o dicho de 
otro modo, es la representación física de nuestro algoritmo. 

Un ejecutable es generalmente un archivo con extensión EXE, que obtenemos tras una serie de pasos, 
que a grandes rasgos describimos a continuación: 

• Compilación. Consiste en convertir el código escrito por el programador en el llamado código 
objeto. El código objeto es el estado en el que se encuentra nuestro programa en el punto 
previo a la fase de obtención del ejecutable definitivo. Dependiendo de la herramienta de 
programación utilizada, el código objeto se almacenará en forma de archivo, o será pasado 
directamente a la siguiente fase de creación del ejecutable. Para transformar el código fuente a 
código objeto se emplea el compilador, que es un programa o utilidad encargada de esta labor. 
Ver Figura 24. 



Figura 24. Proceso de compilación del código del programa. 


• Enlace. En esta fase se toman, por un lado, el código objeto generado por el compilador, y por 
otro, el código de rutinas de uso general que necesita el lenguaje de programación, que se 
encuentra habitualmente organizado en archivos denominados librerías o bibliotecas de 
código. Todo ello, mediante un programa o utilidad denominado enlazador, se une para 
obtener el ejecutable final, un archivo con extensión .EXE. Ver Figura 25. 
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Figura 25. Proceso de enlace del código objeto y librerías para obtener el ejecutable. 


Interfaces de usuario 

Un interfaz de usuario es el aspecto que un programa muestra, y el modo en que interactúa con el 
usuario que lo ejecuta. Los tipos de interfaz de usuario que utilizaremos a lo largo de este texto serán 
los siguientes: 

• Consola. El interfaz de usuario de consola consiste en una ventana de tipo MS-DOS o modo 
comando, mediante la cual, el usuario introduce las instrucciones en el indicador de comandos 
del sistema. La creación de programas de tipo consola es sencilla y rápida, y debido a que el 
objetivo principal de este texto es el aprendizaje de los diferentes aspectos del lenguaje, la 
mayoría de los ejemplos realizados se harán utilizando la consola. 

• Formularios Windows. Este tipo de interfaz está basado en el entorno de ventanas del 
sistema operativo Windows, permitiéndonos crear aplicaciones basadas en formularios o 
ventanas, con todas las características típicas de este tipo de programas. 


Las herramientas para la creación de programas 

Remontándonos a los tiempos de las aplicaciones en modo texto, bajo MS-DOS, con los lenguajes y 
herramientas de programación disponibles en aquella época, los pasos para la creación de un 
ejecutable descritos en un apartado anterior, debían ser realizados por el programador de forma 
manual, ya que todos los elementos utilizados para la creación del programa se encontraban separados. 
Disponíamos por un lado, de un programa que consistía en un editor de código fuente, por otro, el 
compilador, enlazador, librerías de utilidades, etc. 

Sin embargo, la llegada y evolución de los entornos de desarrollo integrados (IDE, Integrated 
Development Environment), que incorporan en una sola aplicación todos los elementos necesarios 
para el desarrollo de programas, estas tareas se han automatizado hasta tal nivel, que el programador 
sólo necesita escribir el código del programa, mientras que los pasos de compilación, enlazado y 
generación del ejecutable las realiza internamente el propio entorno. 

La aparición de la tecnología .NET, sorprendentemente, proporciona al programador, si este lo desea, 
una forma de trabajo a la antigua usanza; disponiendo también de un sofisticado entorno de desarrollo, 
que será probablemente el medio de desarrollo más habitual. 

Programando con VB.NET podemos optar por ambos modos de trabajo: a través de utilidades 
separadas, ejecutadas en una ventana MS-DOS o Windows; o bien, empleando Visual Studio .NET 
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(VS.NET, como también lo denominaremos a lo largo del texto), el IDE o herramienta de desarrollo 
de la plataforma. 


.NET Framework: el entorno de ejecución 

La plataforma .NET Framework, en la que se basa el paradigma de .NET, consiste en una tecnología 
multiplataforma y multilenguaje. 

A grandes rasgos, la arquitectura de .NET Framework se ha diseñado de modo abierto, de manera que 
la plataforma pueda ser ejecutada en diferentes sistemas operativos. El entorno de ejecución de .NET 
se sitúa como una capa intermedia entre el hardware de la máquina y el software, actuando de 
traductor, lo que posibilita dicha integración. Ver Figura 26. 



Figura 26. La plataforma .NET Framework se sitúa como intermediario entre aplicación y sistema operativo. 


Entre las muchas cualidades y características, podemos destacar el hecho de que una aplicación creada 
bajo .NET Framework, podrá ejecutarse en diferentes equipos con distintas arquitecturas sin necesidad 
de recompilación, siempre y cuando, en dichas máquinas esté instalado el entorno de ejecución de 
.NET. 

Otro aspecto también muy destacable, consiste en el hecho de que una aplicación puede estar 
compuesta a base de piezas o elementos de código, denominados ensamblados o assemblies, pudiendo 
haberse codificado cada ensamblado en un lenguaje distinto, siempre que todos esos lenguajes sean 
compatibles con las especificaciones de la plataforma .NET. 


El SDK de .NET Framework: las herramientas de 
desarrollo 

El núcleo de .NET Framework consta de un conjunto de ejecutables y librerías de enlace dinámico, 
que sirven como soporte al desarrollo de programas escritos para esta plataforma. Dicho paquete de 
elementos constituye el denominado kit de desarrollo de software o SDK (Software Development Kit) 
para la plataforma .NET. 

El SDK es un paquete de libre distribución, y se puede obtener gratuitamente de los sitios de descarga 
que Microsoft tiene habilitados a tal efecto. En principio, el SDK es lo único que necesita instalar el 
programador para desarrollar aplicaciones que funcionen en la plataforma .NET, ya que aparte de las 
herramientas de desarrollo y librerías, también se instala la propia plataforma. Sin embargo, la aridez e 
incomodidad de trabajar con múltiples herramientas de modo separado, harán que en la mayoría de los 
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casos optemos por la programación utilizando el entorno de desarrollo de aplicaciones de .NET: 
Visual Studio .NET. 

Visual Studio .NET es un avanzado IDE para el desarrollo de programas basados en .NET Framework, 
que hace un uso transparente de todas las utilidades del SDK de .NET, liberando al programador, de la 
necesidad de tener que usar y configurar manualmente todo el conjunto de aplicaciones del SDK. 
Tales ventajas, no obstante, tienen un precio, ya que mientras que el SDK es un paquete gratuito, 
Visual Studio .NET es un producto comercial, por el que debemos pagar la correspondiente licencia de 
uso. 

A lo largo de este texto, los ejemplos se desarrollarán en su mayoría utilizando Visual Studio .NET, 
por lo que antes de pasar a crear nuestro primer programa para .NET, explicaremos los pasos a dar 
para instalar dicho entorno de desarrollo. 


Requisitos hardware de Visual Studio .NET 

La Tabla 1 muestra una lista con las características mínimas y recomendadas que debe tener el equipo 
en el que instalemos VS.NET. 



Mínimo 

Recomendado 

Procesador 

Pentium 11-450 MHz 

Pentium 111-733 MHz 

Memoria 

128 MB 

256 MB 

Espacio en disco duro 

3 GB 

5 GB 


Tabla 1. Requerimientos hardware para instalar Visual Studio .NET. 


El sistema operativo para Visual Studio .NET 

VS.NET puede ser instalado en un equipo con uno los siguientes sistemas operativos: 

• Windows XP 

• Windows 2000 (se requiere tener instalado el Service Pack 2). 

• Windows NT 4.0. (se requiere tener instalado el Service Pack 5). 

• Windows Me. 

• Windows 98 (SR2) 

Para aprovechar todo el potencial de desarrollo de la plataforma, es recomendable usar como sistema 
operativo Windows XP o 2000, ya que ciertos aspectos del entorno (las características avanzadas de 
gestión gráfica por ejemplo) no están disponibles si instalamos .NET en otro sistema con menos 
prestaciones. 

Según fuentes de Microsoft, la próxima versión de su sistema operativo: Windows .NET Server, 
incluirá la plataforma .NET instalada de modo predeterminado. 
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Recomendaciones previas a la instalación de Visual Studio 
.NET 

Es recomendable realizar la instalación sobre un equipo limpio, es decir, un equipo con el software 
mínimo para poder realizar pruebas con .NET Framework, o con otro tipo de aplicaciones sobre las 
que estemos seguros de que no se van a producir conflictos con el entorno. 

En este sentido, una buena práctica consiste en crear en nuestro disco duro una partición que 
utilizaremos para el trabajo cotidiano con el ordenador, y otra partición en la que instalaremos 
VS.NET. 

Para ayudar al lector a formarse una idea más aproximada en cuanto a configuraciones hardware y 
software, el equipo utilizado para realizar las pruebas mostradas en este texto ha sido un Pentium 111 a 
933 MHz, con 256 MB de memoria y disco duro de 18 GB. 

En cuanto a sistemas operativos, se han realizado dos particiones sobre el disco duro; en la partición 
primaria se ha asignado un tamaño de 2 GB y se in s talado Windows 98. En el resto de espacio en 
disco se ha creado una unidad lógica sobre la que se ha instalado Windows 2000 Server y el Service 
Pack 2 para este sistema operativo. 

Respecto a las aplicaciones utilizadas, aparte naturalmente de VS.NET, hemos instalado Visual 
Studio 6.0 que puede perfectamente convivir en el mismo equipo en el que esté instalado .NET 
Framework y por ende VB.NET, de esta forma podemos hacer pruebas con la herramienta de 
migración de aplicaciones de VB.NET que convierte aplicaciones escritas en Visual Basic 6 a la nueva 
versión de VB. Como base de datos se ha utilizado SQL Server 2000 y como conjunto de herramientas 
adicionales Office 2000. 

El orden más conveniente de instalación en el equipo del software antes mencionado, de forma que 
evitemos posibles conflictos ha sido el siguiente: 

• Windows 2000 Server. 

• Service Pack 2 para Windows 2000. 

• Office 2000. 

• Visual Studio 6.0. 

• SQL Server 2000. 

• Visual Studio .NET. 

Queremos aclarar al lector que este ejemplo de instalación es meramente orientativo, ya que para 
nuestros propósitos sólo será precisa la instalación del sistema operativo y Visual Studio .NET 

Y ya sin mas preámbulos, pasemos al proceso de instalación de .NET. 


Proceso de instalación de Visual Studio .NET 

En el momento de escribir este texto, se ha empleado Visual Studio .NET, Beta 2, versión española 
(número de versión 7.0.9254), que se compone de los tres CDs de instalación del producto más uno de 
actualización de componentes del sistema operativo (Windows Component Update) 
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Procederemos insertando el disco de instalación rotulado como CD1, el cuál detectará si es necesario 
actualizar algún componente a nivel del sistema operativo; en caso afirmativo, pulsaremos sobre el 
paso 1 Windows Component Update, en el que se nos pedirá el disco rotulado con el mismo nombre. 
Ver Figura 27. 



Figura 27. Selección de actualización de componentes de Windows. 


Una vez insertado el disco de actualización de componentes para Windows, se mostrará la pantalla de 
la Figura 28. En caso de aceptar el contrato, haremos clic sobre Continuar, para que el instalador 
detecte qué componentes faltan por actualizar. 
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jí§ Visual 5tudio.NET Windows Component Update: instalación 

Microsoft* Visual Studio.NET 

Windows Component Update 


Contrato de licencia para el usuario final 




Lea detenidamente hasta que comprenda perfectamente todos los 
derechos y restricciones descritos en el CLUF, Será necesario que revise y 
que, según proceda, acepte o rechace las condiciones del CLUF. Este 
producto no se instalará en su PC hasta que no acepte las condiciones del 
CLUF. Para futuras referencias, puede imprimir el contenido del CLUF que 
se encuentra en el archivo eula.txt de este producto. También puede 
recibir una copia de este CLUF a través de la subsidiaria de Microsoft de su 

A A/- Al r!k¡An^A -w . MiAmenA- Tn¿A vrv. -t4 -¡a rs IUIÍaitaaaA- 


Imprimir el Contrato de 

licencia 


O iftcepto el Contrato] 

O No acepto el Contrato 


Continuar 


Cancelar 


Figura 28. Contrato de instalación para Windows Component Update. 

Una vez detectados los componentes que necesitan actualización, serán mostrados a continuación en la 
lista de la Figura 29, donde volveremos a pulsar sobre Continuar. 


;!§ Visual Studio.NET Windows Component Update: instalación 


Microsoft* Visual Studio.NET 

Windows Component Update 


Windows Component Update instalará los siguientes componentes necesarios 
para Visual Studio.NET 7.0 

Microsoft Windows Installer 2.0 

Cliente de Extensiones Web de Microsoft FrontPage 2000 
Archivos en tiempo de ejecución para la instalación 
Microsoft Data Access Components 2.7 
Microsoft .NET Framework 


Más información 


Atrás 


Continuar 


Cancelar 


Figura 29. Lista de componentes que se necesita actualizar. 
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Ya que es posible que el programa de instalación reinicie el equipo una o más veces, a continuación 
estableceremos, en el caso de que existan en nuestro equipo, las claves de acceso al sistema, para que 
los reinicios sean automáticos. Ver Figura 30. 



Figura 30. Valores para realizar reinicios automáticos del equipo. 


Pulsaremos a continuación sobre Instalar ahora, con lo que se procederá a la actualización de los 
componentes de la lista. Una vez terminada esta actualización, aceptaremos la ventana final de 
Windows Component Update y seguiremos con la instalación normal de VS.NET, lo que nos requerirá 
de nuevo la introducción del CD1. 

Puesto que ya hemos actualizado los componentes del sistema, el siguiente paso será ya la instalación 
de VS.NET, que pondremos en marcha al hacer clic sobre el paso 2 de la instalación, que tiene el 
nombre de Visual Studio .NET. Ver Figura 31. 

Se mostrará pues, la pantalla con los datos de licencia, producto y usuario. En el caso de estar de 
acuerdo con todos estos términos y aceptar el contrato, haremos clic sobre Continuar. Ver Figura 32. 

A continuación debemos seleccionar aquellos elementos del producto que deseamos instalar, el 
entorno de ejecución, lenguajes, utilidades, ayuda, etc., y su ubicación en el disco duro, como muestra 
la Figura 33. Terminada la selección, pulsaremos sobre Instalar ahora para que comience el proceso. 
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Figura 31. Instalación de Visual Studio .NET. 


¡Si® Microsoft Visual Studio.NET 7.0 Enterprise: instalación - Página de inicio 


Unleash the power of .NET 


.JSjxl 


Microsoft' 

VisualStudio.NET 


I 


Opciones Instalar 


Para instalar Microsoft Visual 
Studio.NET 

1. En esta página: 

a) Lea el Contrato de licencia para el 
usuario final (CLUF). 

b) Acepte las condiciones del CLUF. 

c) Escriba su nombre. 

d) Haga clic en ^Continuar". 

2. En la página de opciones: 

a) Elija las funciones que desea 
instalar. 

b) Haga clic en ^Instalar ahora* 
cuando esté listo. 



Visual 9tudio.net 


Contrato de licencia para el usuario final 

Lea detenidamente hasta que comprenda perfectamente todos 
los derechos y restricciones descritos en el CLUF. Será necesario 
que revise y que, según proceda, acepte o rechace las 
condiciones del CLUF. Este producto no se instalará en su PC 
hasta que no acepte las condiciones del CLUF. Para futuras 
referencias, puede imprimir el contenido del CLUF que se 
encuentra en el archivo eula.txt de este producto. También 
puede recibir una copia de este CLUF a través de la subsidiaria 
de Microsoft de su país, o escribiendo a: Microsoft Sales 
Information Center/One Microsoft Way/Redmond, WA 98052- 
6399. 

CONTRATO DE LICENCIA DE MICROSOFT CORPORATION PARA 


=1 


zi 


Imprimir el Contrato de licencia 

O Acepto el Contrato 
O No acepto el Contrato 


Clave del producto: 

BBH2G D2VK9 QD4M9 F63XB 43C33 

Su nombre: 

L.M.BLANCO 


Revisair ei archivo Léame* 


Continuar Cancelar 


Figura 32. Información de licencia de Visual Studio .NET. 
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3 Microsoft Visual Studio.NET 7.0 Enterprise: instalación - Página de opciones 
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Microsoft' 

Visual Studio.NET 


Unleash the power of .NET 


Visual Shiriio.ngt 


Opciones 


Instalar 


Seleccione los elementos que desee instalar: 

b0 

Herramientas de lenguaje 
[±] Herramientas de desarrollo empresarial 

Él- -0lil.NET Framework SDK 
g-@Í) Herramientas para redistribuir aplícacior 
Componentes de servidor 
É 0 ' ^Documentación de MSDN 


Propiedades de la función 


Nombre 

Visual Studio.NET Enterprise 


| Ruta de acceso | 

K:\Archivos de programa\Microsoft Vis... 


Espado requerido 

1312.88 MB 



Q Descripción de la función 
Visual Studio.NET Enterprise 

Esta versión proporciona todo lo necesario para satisfacer 
sus necesidades de desarrollo. 

El conjunto de productos incluye: 


d 


• Visual Studio.NET Enterprise Features, que 

proporciona Visual Studio Analyzer y Visual Studio 


<L 


li 


Asignación de espacio 
Unidad C: 


Mostrar u ocultar unidades ▼ 



| Espacio utilizado (828 MB) 
| Espacio libre (1.2 GB) 


Unidad D- 


=j 


d 


Restaurar valores predeterminados 


Instalar ahora 


Cancelar 


Figura 33. Selección de componentes a instalar de Visual Studio .NET. 


Durante la instalación, el programa nos solicitará progresivamente los discos rotulados como CD2 y 
CD3. 

Este proceso de instalación nos indica el archivo que se está in s talando en cada momento, así como la 
información de su estado a través de una barra de progreso y el tiempo estimado restante, aunque por 
las pruebas realizadas, este último valor no es totalmente fiable. Para que el lector se forme una idea, 
en el equipo en el que se realizó la instalación, esta llevo un tiempo aproximado de dos horas. Ver 
Figura 34. 

Concluida la instalación, el programa nos informará de si se produjo alguna incidencia. En caso de que 
no se hayan producido errores, finalizaremos haciendo clic sobre Listo, con lo que ya tendremos 
instalado Visual Studio .NET en nuestro ordenador. Ver Figura 35. 

Una vez instalada la herramienta de trabajo, pasemos a crear nuestro primer programa. 
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¡;§ Microsoft Visual Studio.NET 7.0 Enterprise: instalación - Página de instalación 
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VisualStudio.net 




Inicio Opciones 


Breve introducción a Visual Studio.NET 

Servicios de suscripción o MSDN 

Los servicios de suscripción a MSDN proporcionan acceso prioritario al software de 
desarrollo de Microsoft, actualizaciones de productos e información esencial de 
programación, necesaria para desarrollar servicios y aplicaciones Web. 

.NET Framework 

.NET Framework es la infraestructura para toda la plataforma .NET. Incluye 
bibliotecas de clase base, como ADO.NET y ASP.NET, así como Common Language 
Runtime. 

Servicios Web 

Un servicio Web es una unidad lógica de aplicación que proporciona datos y 
servicios a otras aplicaciones. Las aplicaciones obtienen acceso a los servicios Web 
mediante protocolos Web y formatos de datos como HTTP, XML, y SOAP 
universales. 

MPÍnrac Hp»I Ipnnnaip 

Archivo: BubbleOI ,3tf, directorio: K:\Archivos de programa\Archivos comunesSCrystal Decis¡ons\1.0\SSChart\Templates\Grandes conjuntos di 


Tiempo estimado restante: 25 minutos 



Cancelar 


Figura 34. Información sobre el progreso de la instalación. 
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La instalación ha terminado. 




No se produjeron errores durante la instalación. 
Ver registro de instalación 
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La instalación de Microsoft Visual Studio.NET 7.0 Enterprise ha terminado 
Tiempo restante: O minutos 


Figura 35. Final de la instalación. 
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Hola mundo, desde Visual Basic .NET 

Cuando un programador se enfrenta a un nuevo lenguaje, una de las primeras pruebas que acostumbra 
a realizar es un pequeño programa que muestre, mediante el interfaz de usuario correspondiente, el 
mensaje “Hola mundo”. 

Siguiendo fieles a la tradición, y para que el lector pueda dar sus primeros pasos en este nuevo mundo 
de la programación, vamos a proceder a escribir nuestro primer programa, utilizando el lenguaje 
Visual Basic .NET. 


El compilador de VB.NET 

Como ya hemos comentado, una vez escrito el código fuente de nuestro programa, debemos emplear 
una herramienta llamada compilador, que será la encargada de tomar nuestro código y transformarlo a 
código objeto o directamente ejecutable. 

En esta primera prueba vamos a crear nuestra aplicación de un modo, digamos, artesanal, utilizando el 
Bloc de notas como editor de código, y el compilador del lenguaje en una ventana MS-DOS. De este 
modo, el lector se formará una mejor idea del proceso a seguir, y que Visual Studio .NET lleva a cabo 
automáticamente. Posteriormente abordaremos este mismo ejemplo pero desarrollándolo desde el IDE. 

Abriendo pues el Bloc de notas, escribiremos las sentencias mostradas en el Código fuente 10. 


Imports System 

Module General 

Public Sub Main() 

Consolé.WriteLine("Hola mundo") 

End Sub 
End Module 

Código ñiente 10 


Descrito este código a grandes rasgos, podemos decir que la primera línea establece la referencia a una 
librería de la plataforma .NET Framework, que contiene elementos del lenguaje necesarios para que se 
ejecute el programa. 

A continuación, entre las sentencias Module...End Module definimos un módulo de código, con el 
nombre General, que se trata de un contenedor de rutinas de código, y precisamente, dentro de este 
módulo, escribimos un procedimiento entre las sentencias Sub...End Sub, con el nombre Main( ), en el 
que hacemos uso del objeto Consolé, llamando a su método WriteLine(), al que pasamos una cadena 
de caracteres con el texto a mostrar. Dicho texto será mostrado en una ventana MS-DOS o de consola, 
como también la denominaremos en este texto. 

No se preocupe el lector si no comprende el código de este ejemplo, iremos desgranando 
progresivamente los elementos que componen un programa, hasta entender todos sus detalles; de 
momento bastará con escribir el ejemplo y grabarlo en un archivo con el nombre Saludo.VB. Se 
recomienda que los archivos con código escrito en lenguaje VB.NET tengan la extensión .VB, aunque 
esto no es obligatorio, pudiendo utilizar la extensión que el programador prefiera. 
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A continuación necesitamos, desde una ventana en modo comando o sesión MS-DOS, ejecutar el 
compilador de Visual Basic .NET para crear el ejecutable de nuestro ejemplo. 

El compilador del lenguaje es un archivo con el nombre VBC.EXE (Visual Basic Compiler), que 
ejecutaremos, pasándole como parámetro el archivo con el código fuente a compilar. 

Para evitar al programador la farragosa tarea de localizar la ruta en la que se halla el archivo 
VBC.EXE, al instalar VS.NET se añade un elemento entre el conjunto de opciones de esta 
herramienta, que consiste en un acceso directo a una ventana MS-DOS, en la que ya están definidas 
las rutas hacia todas las herramientas necesarias, que necesitaremos utilizar para desarrollar 
aplicaciones en .NET Framework. Para abrir esta ventana debemos seleccionar la siguiente ruta del 
sistema de menús de Windows: Inicio + Programas + Microsoft Visual Studio.NET 7.0 + Visual 
Studio.NET Tools + Visual Studio.NET Command Prompt. 

Una vez abierta esta ventana MS-DOS, tecleando VBC.EXE y pulsando [INTRO], aparecerá una lista 
con las opciones del compilador de VB.NET. Ver Figura 36. 


Visual Studio.NET Command Prompt 

Uersión 7.00.9254 del compilador de Microsoft (R> Uisual Basic.NET 

para Microsoft <R> .NET CLR versión 1.00.2914.16 

<C> Microsoft Corp. 2001. Reservados todos los derechos. 

Opciones del compilador de Uisual Basic 

- OUTPUT FILE - 

Especifica el nombre del archivo de resultados. 

Crear una aplicación de consola (predeterminado) (Forma 

Crear una aplicación para Windows. 

Crear un ensamblado de biblioteca. 

Crear un módulo que se puede agregar a un ensamblado. 

- INPUT FILES - 

/addmodule:<file> Hacer referencia a los metadatos del módulo especificadi 

/recurse:<wildcard> Incluir todos los archivos del directorio y subdirector 

os actuales de acuerdo con las especificaciones de los comodines. 

/reference:(file_list> Hacer referencia a los metadatos de los archivos de ens. 
mblado especificados. (Forma corta: /r> 

- RESOURCES - 

/linkresource:(resinfo> Uincula el archivo especificado como recurso de ensambl. 


/out:<file> 
/target:exe 
corta: /t> 
/target:winexe 
/target:library 
/target:module 


Figura 36. Ventana MS-DOS con las opciones del compilador del lenguaje VB.NET. 


La Tabla 2 muestra algunas de las principales opciones del compilador, aunque por la sencillez del 
ejemplo que vamos a realizar no será necesario el uso de ninguna opción. 


Opción 

Descripción 

/out:<archivo> 

Nombre del archivo de salida (tomado del primer archivo fuente, si no 
se especifica lo contrario) 

/target: exe 

Construye un ejecutable de consola. Esta es la opción por defecto 
(forma corta: /t:exe) 

/target:winexe 

Construye un ejecutable Windows (forma corta: /t:winexe) 

/target: library 

Construye una librería (forma corta: /t: library) 
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/targetmodule 

Construye un módulo que puede añadirse a otro ensamblado (forma 
corta: /tmiodule) 

/reference:<lista archivos> 

Referencia a metadatos de los ensamblados/archivos especificados 
(fomia corta: /r) 

/define:<lista símbolos> 

Define símbolos de compilación condicional (forma corta: /d) 

/optionexplicit[+-] 

Se requiere la declaración explícita de variables 

/optionstrict[+|-] 

Exigir una semántica de lenguaje estricta 

/rootnamespace:<nombre> 

Especifica el espacio de nombres de la raíz para todos los tipos de 
declaraciones 

/o p t i o n c o m p a re: b i n ary 

Especifica comparaciones de cadenas de estilo binario. Activado de 
forma predeterminada 

/optioncompare:text 

Especifica comparaciones de cadenas de estilo binario 

/main:<class> 

Especifica la clase o módulo que contiene Sub Main. También puede ser 
una clase que hereda de System.Windows.Forms.Form 

(forma corta: /m) 


Tabla 2. Opciones del compilador del lenguaje VB.NET. 


Para compilar pues nuestro primer programa, deberemos situamos en el directorio en el que hayamos 
guardado el archivo con el código fuente de nuestro ejemplo, y teclear en el indicador de comandos de 
esta ventana la instrucción del Código fuente 11. 


VBC Saludo.VB 


Código fuente 11 


Lo que hacemos aquí es ejecutar el compilador VBC.EXE (no es necesario especificar la extensión del 
compilador), pasando seguidamente el nombre del archivo fuente con el código a compilar, en este 
caso SALUDO.VB. Obtendremos de esta operación un nuevo archivo, con el nombre SALUDO.EXE, 
que será el ejecutable de nuestro programa. Cuando tecleemos SALUDO en el indicador de comandos 
de la ventana, y pulsemos [INTRO], el programa será ejecutado. El resultado de esta ejecución será la 
visualización del mensaje en la ventana de la consola, con lo que habremos completado el proceso de 
creación de nuestro primer programa en VB.NET. Ver Figura 37. 


50 






© Grupo EIDOS 


2. Implementación de programas en la plataforma Microsoft .NET 


F Visual Studio.NET Command Prompt 



Figura 37. Ejecución del programa Fióla mundo, en la ventana MS-DOS. 


El entorno de desarrollo integrado (IDE) de Visual Studio 
.NET 

Como hemos explicado con anterioridad, un IDE es una aplicación que integra un gran número de 
utilidades, tales como editores, asistentes, ayudas, etc., de forma que todo lo que el programador 
necesite para su trabajo diario lo tenga reunido en un sólo producto, facilitando la creación de 
programas para un determinado lenguaje(s). 

En esto consiste el IDE de Visual Studio .NET, que podemos poner en ejecución seleccionando la 
siguiente opción de la ruta de menús de Windows: Inicio + Programas + Microsoft Visual Studio 
.NET 7.0 + Microsoft Visual Studio .NET 7.0. Al iniciarse VS.NET mostrará su página de inicio, que 
vemos en la Figura 38. 


1 Microsoft Development Environment [diseñar] - Página de inicio 



Archivo Edición Ver Herramientas Ventana Ayuda 

! m - «a - G» Q 0 ► 

▼ venta 

- a &x ” 

«" ■* Q H3 t3 (OS)® vsi/def ault.htm 

- 1 4* t 4- M . , 



4i 
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Página de inicio 


Start 


| Introducción 


Lo nuevo 

Comunidad en línea 
Titulares 

Búsqueda en línea 
Descargas 


Nombre 

Modificado 

otrapru4 

10/06/2001 

pru2 

08/06/2001 

otra 

23/05/2001 

Embala 

03/06/2001 


<1 > X 


Alojamiento Web 

Mi perfil 

Notificar un problema de Visual Studio.NET 

d 


Resultados 

9 x| 

| Ejecución de pruebas 

d 

~ 1 

-il 

1 Ll 


Listo 


Figura 38. Entorno de desarrollo de Visual Studio .NET. 
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Proyectos en Visual Studio .NET 

Para desarrollar un programa desde el IDE de VS.NET debemos crear un proyecto, que consiste en un 
contenedor de todos los elementos que forman parte de una aplicación en .NET: archivos de código, 
recursos, imágenes, etc. 


Creación de un proyecto 

Para crear un nuevo proyecto, situados en la página de inicio del IDE, pulsaremos el botón Nuevo 
proyecto, o bien la opción de menú del propio IDE: Archivo + Nuevo + Proyecto , lo que mostrará la 
ventana Nuevo proyecto. 

Debemos tener en cuenta que .NET Framework es una plataforma para el desarrollo de programas en 
varios tipos de lenguajes de programación: Visual Basic .NET, Visual C# .NET, Visual C++ .NET, J#, 
y otros que están en proceso de desarrollo, para cumplir con las especificaciones del entorno de 
ejecución de .NET. Por este motivo, en la ventana de creación de proyectos de VS.NET, debemos 
elegir en primer lugar, del panel izquierdo, el lenguaje en el que vamos a escribir el programa, y a 
continuación, en el panel derecho, el tipo de proyecto a desarrollar, de la lista de plantillas disponibles. 

En todos los ejemplos que desarrollemos a partir de ahora, y hasta que no se indique lo contrario, al 
crear un proyecto en VS.NET, seleccionaremos como tipo de proyecto: Proyectos de Visual Basic, y 
como plantilla: Aplicación de consola, tal y como se muestra en la Figura 39. 



Figura 39. Ventana para la creación de un nuevo proyecto en el IDE. 


En esta fase de la creación del proyecto, es también necesario dar un nombre al mismo, y seleccionar 
un directorio del equipo en el que se crearán los archivos que compondrán el programa. Como nombre 
dejaremos el que hay por defecto: ConsoleApplicationl. Completados estos pasos, pulsaremos el 
botón Aceptar, lo que creará un nuevo proyecto con interfaz de consola. 
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El editor de código fuente 

Al crear un proyecto de consola, se crea también un archivo de código fuente con el nombre 
Modulel.VB, que contiene un módulo de código (Module), y un procedimiento o rutina de código 
vacía (Sub) con el nombre Main( ). Observemos que en la ventana principal del IDE, hasta ahora 
ocupada por la página de inicio, se añade una nueva pestaña en la que se mostrará el editor de código 
fuente con el código generado automáticamente por el IDE; esta ventana será nuestro principal 
elemento de trabajo a partir de ahora, ya que en ella escribiremos las sentencias que formarán parte de 
nuestro programa. Ver Figura 40. 


Página de inicio 

Modulel.vb 


j^Modulel (ConsoleApplicationl) 

▼ 



E Module Modulel 
Sub Main() 
End Sub 


L End Module 

Figura 40. Código generado por el IDE al crear un nuevo proyecto de consola. 


El código del programa 

Como podemos deducir del código base que ha generado VS.NET, el procedimiento Main( ) 
representa al procedimiento principal o punto de entrada al programa, siendo la primera rutina de 
código que se ejecutará cuando iniciemos el programa desde el IDE o invoquemos al archivo 
ejecutable físico. 

Lo que tenemos que hacer a continuación es situamos sobre la ventana del editor de código, y añadir 
dentro del procedimiento Main( ) el mensaje a visualizar en la consola, de igual modo que hicimos en 
el ejemplo anterior, cuando creamos el programa con el compilador en modo comando. 

En esta ocasión no será necesaria la instrucción Imports System que vimos en el anterior ejemplo, ya 
que al trabajar con el IDE se incluye internamente. Para ejecutar este ejemplo usaremos la opción de 
menú del IDE Depurar + Iniciar. Ver el Código fuente 12. 


Module Modulel 
Sub Main() 

Consolé.WriteLine("Hola mundo") 

End Sub 

End Module 

Código fuente 12 


En este caso, sin embargo, el resultado obtenido no es muy adecuado, ya que al ejecutar el programa 
desde VS.NET, es el propio IDE el que se encarga de abrir una ventana de consola y mostrar el 
mensaje, pero justo a continuación, se cierra la ventana sin dejamos tiempo para comprobar el texto 


53 














Fundamentos de programación con Visual Basic .NET 


© Grupo EIDOS 


visualizado. El motivo de este comportamiento se debe a que no hemos establecido ningún tipo de 
parada en la ejecución. 

Para solucionar este problema tenemos dos medios: el más sencillo consiste en ejecutar mediante la 
opción de menú Depurar + Iniciar sin depurar, que añade una pausa antes de finalizar la ejecución, 
permitiendo visualizar la ventana de la consola. Ver Figura 41. 



Figura 41. Ejecución del programa Hola mundo con parada. 


La otra forma pasa por ejecutar el método Read() del objeto Consolé, después de mostrar el mensaje 
en la ventana. El Código fúente 13 muestra de nuevo el ejemplo con este pequeño retoque. 


Module Modulel 
Sub Main() 

Consolé.WriteLine("Hola mundo") 

Consolé.Read() 

End Sub 

End Module 

Código fuente 13 


Con la línea Console.Read( ) forzamos a realizar una parada en la ejecución del programa, poniendo el 
mismo a la espera de que el usuario pulse una tecla en la ventana de consola. Al pulsar [1NTRO] se 
continuará la ejecución del programa tras la mencionada instrucción, y como no existen más líneas de 
código para ejecutar, finaliza. 

Para ejecutar el programa desde el IDE podemos utilizar ahora la opción de menú Depurar + Iniciar. 
En la Figura 42 vemos nuestra nueva versión de Fióla mundo en ejecución. 



Figura 42. Ejecución del programa Hola mundo, creado desde VS.NET. 
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El Explorador de soluciones 

Una solución en VS.NET es un componente del IDE que actúa como contenedor de proyectos. Por 
defecto, cuando creamos un proyecto, se crea también una solución que lo contiene, con el mismo 
nombre del proyecto; podemos añadir más proyectos a la solución o dejarla como solución de 
proyecto único. 

La ventana del IDE Explorador de soluciones, nos permite una vista organizada de la solución 
actualmente abierta, con los proyectos que contiene, y los elementos, a su vez, que componen cada 
proyecto, fundamentalmente, el archivo MODULEl.VB, ya que el resto no necesitaremos 
modificarlos. La Figura 43 muestra esta ventana con los elementos del programa que estamos 
escribiendo. 


1 Explorador de soluciones - ConsoleApplicationl ^ X 

m 


■— 


Solución 'ConsoleApplicationl' O proyecto) 


aBr^jConsole Application 1 


ES- (al References 
V] Assemblylnfo.vb 
VI Modulel.vb 


Figura 43. Explorador de soluciones del IDE. 


La estructura de archivos del proyecto 

Cuando creamos un proyecto utilizando VS.NET, se genera en disco, partiendo de la ruta especificada 
en la ventana de creación del proyecto, una estructura de directorios que contiene los archivos que 
forman parte del proyecto. La Figura 44 muestra la estructura correspondiente al programa de ejemplo 
que acabamos de escribir. 


BjJ Consolé Application 1 
j O bin 
H O obj 
É Cd Debug 

I_I temp 

O TempPE 

Figura 44. Estructura de archivos de un proyecto escrito en VB.NET. 


Si hacemos cambios en la ventana del editor de código, deberemos guardarlos en su archivo de código 
asociado pulsando [CTRE+S], o bien, si hemos modificado diferentes elementos, y queremos grabar 
todos los cambios a la vez, seleccionaremos la opción de menú del IDE Generar + Generar. 

Un proyecto VB.NET está compuesto por un conjunto de archivos de diverso tipo, algunos de los 
cuales relacionamos a continuación: 

• VB. Código fuente escrito en lenguaje Visual Basic. 
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• VBPROJ. Proyecto de VB. Contiene información sobre todos los elementos que forman parte 
de un proyecto: archivos de código, referencias, etc. 

• SLN. Solución. Una solución es el medio que utiliza VS.NET para agrupar varios proyectos 
escritos en el mismo o en diferentes lenguajes de los que integran la plataforma .NET. 

• VBPROJ.USER. Información sobre las opciones de usuario del proyecto. 

• EXE. Aplicación ejecutable. 

• PDB. Información sobre depuración de la aplicación 

Cuando escribimos un programa con VS.NET, en el directorio bin del proyecto se genera el archivo 
ejecutable, que contiene nuestra aplicación, y que en principio, es lo único que necesitamos para 
ejecutar el programa en cualquier otro equipo, que naturalmente, también tenga instalado la plataforma 
.NET Framework. Ello nos evita problemas de instalación y ahorra tiempo en su distribución. 

Para abrir un proyecto dentro del IDE, el modo más rápido consiste en hacer doble clic sobre el 
archivo de proyecto o solución; esto abrirá VS.NET y cargará el proyecto-solución en el IDE, con lo 
que podremos comenzar a trabajar. 

Si tenemos ya abierto el IDE, podemos utilizar su opción de menú Archivo + Abrir + Proyecto, o bien 
Archivo + Abrir solución. De ambas formas se abrirá un cuadro de diálogo para seleccionar el 
proyecto o solución a cargar en el IDE para su edición. 


El sistema de ayuda 

El MSDN (Microsoft Developer NetWork), o documentación de ayuda de la plataforma Microsoft 
.NET está accesible en todo momento desde el propio VS.NET. 

Se trata de un sistema de ayuda contextual, esto quiere decir que si invocamos la ayuda desde el lugar 
del IDE en el que nos encontremos, se intentará buscar un documento en la ayuda relacionado con ese 
lugar en el que estamos situados. 

Por ejemplo, si estamos situados en la ventana del editor de código, y el cursor se encuentra sobre la 
palabra clave Sub, al pulsar [Fl] para solicitar ayuda, se abrirá una nueva pestaña en la ventana 
principal del IDE, correspondiente a la ayuda, y que nos mostrará la documentación existente sobre 
dicho elemento del código, como vemos en la Figura 45. 

En el caso de que no exista información para el elemento del que hemos solicitado ayuda, podemos 
situar el cursor sobre la pestaña desplegable Ayuda dinámica, situada en uno de los laterales del IDE. 

Esta pestaña se abrirá en el momento en que nos situemos sobre ella y a través de los botones de su 
barra de herramientas, podemos efectuar diversos tipos de búsqueda en la documentación del MSDN: 
a través de un índice, por palabra o combinación de palabras, etc. Ver la Figura 46. 
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2. Implementación de programas en la plataforma Microsoft .NET 


ConsoleApplication 1 - Microsoft Visual Basic.NET [diseñar] - Sub Statement 


Archivo Edición Ver Proyecto Generar Depurar Herramientas Ventana Ayuda 


► Debug 


&= 


Sub Statement 


Module l.vb 


* 

n 

c 


0 Visual Basic Language Reference 

Sub Statement 


[This topic is part of a beta release and is subjectto change ¡n future releases. Blank topics are 
¡ncluded as placeholders.] 

Declares the ñame, arguments, and code that define a Sub procedure. 


[ < ¿ttrlist > ] [ { Overloads | Over cides | Dverridable | No tO ver r i dable | Mi 
[{ Piibl -i r | Protected | Eriend | Protected Friend | Prívate }] 

Sub Mame [ ( ■arqrlist ) 1 
[ statements ] 

[ Exit Sub ] 

[ ] 

End Sub 


Parts 

attr/ist 

Optional. List of attributes that apply to this procedure. Múltiple attributes are separated by 
commas. 

Overloads 

Optional. Indicates that this Sub procedure overloads one or more procedures defined with the 

carne ñame in a hace rlacc The arnnment lict in fhic rlerlaratinn mnct he Hifferent frnm the 


Figura 45. Ayuda de Visual Studio .NET. 
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Figura 46. Ventana de ayuda dinámica de Visual Studio .NET. 
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Componentes de un lenguaje de programación 

Un lenguaje de programación se compone de una serie de elementos que se utilizan para escribir las 
diferentes instrucciones y expresiones de que consta un programa. Además de los mencionados 
elementos, existen una serie de reglas para la construcción de expresiones, que son las encargadas de 
decidir si determinada línea o líneas de código están bien escritas, de forma que nuestro programa se 
ejecute correctamente. Al conjunto de normas establecidas para la correcta escritura del código en un 
lenguaje de programación se le denomina sintaxis. 

El objetivo de este texto se basa en explicar los conceptos y aspectos elementales de la programación, 
de modo que sean aplicables a la mayoría de los lenguajes, empleando Visual Basic .NET como 
lenguaje de programación modelo. También se examinarán características particulares de VB.NET, 
que ayudarán al lector que elija este lenguaje como herramienta de trabajo, a obtener un mayor partido 
de la misma. 

A continuación, y de forma esquemática, se muestran los elementos que la mayoría de los lenguajes de 
programación incluyen; todos ellos serán comentados con detalle en los próximos apartados y temas 
del texto. 


• Datos. 


o 

Simples. 

o 

Compuestos. 

o 

Definidos por el programador. 
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• Identific adores. 

o Variables, 
o Constantes, 
o Rutinas o procedimientos. 

• Palabras reservadas. 

o Comandos (Instrucciones o sentencias), 
o Funciones propias del lenguaje, 
o Objetos propios del lenguaje. 

• Operadores. 

o Aritméticos, 
o Relaciónales, 
o Lógicos. 

• Expresiones. 

• Estructuras de control. 

o Selección, 
o Repetición. 

• Contadores. 

• Acumuladores. 

• Interruptores. 


Datos 

Los datos son la información que utiliza un programa para poder realizar operaciones. En función de 
la información que contengan, los datos se pueden clasificar en varios grupos: simples, compuestos y 
definidos por el programador. 


Simples 

Un dato simple está formado por una sola unidad de información. Dependiendo del contenido de esa 
información, los datos simples se dividen en los tipos numérico, carácter, fecha y lógico. 
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Numérico 

Como su nombre indica, este tipo de dato contiene un número, que puede ser entero (sin parte 
decimal) o real (con parte decimal). 

El Código fuente 14 muestra algunos ejemplos de números enteros. 


8 

1000 

415 

-80 


Código fuente 14 


El Código fuente 15 muestra algunos ejemplos de números reales. 


8.35 

120.55 

- 28.42 


Código fuente 15 


Debido a la naturaleza de los ordenadores, hay que tener presente que para representar un número real 
en un programa, tal y como acabamos de observar, debemos utilizar como separador decimal el punto 
en lugar de la coma. 


Carácter 

Un dato de tipo carácter está formado por un único elemento, que puede ser cualquier letra, símbolo o 
número, teniendo en cuenta que los números que son representados como caracteres no se pueden 
utilizar para realizar operaciones aritméticas. 

Para representar un dato de este tipo en un programa se utilizan los denominados delimitadores, entre 
los que se encierra el carácter correspondiente. Suelen ser habitualmente, y para la mayoría de los 
lenguajes de programación, los símbolos de comilla simple o doble, como se muestra a continuación 
en el Código fuente 16. 


"a" 

H 9 ii 
ii 4 ii 

ii _|_ ii 

Código ñiente 16 


Cuando se desarrollan programas es muy frecuente agrupar varios datos de este tipo, formando lo que 
en programación se conoce como cadena de caracteres. Este aspecto puede resultar un tanto confüso, 
ya que una cadena es un dato compuesto y no simple, pero existen determinados lenguajes, VB.NET 
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es uno de ellos, que nos permiten tratar las cadenas como datos de tipo simple. El Código fuente 17 
muestra algunos ejemplos de datos de tipo cadena. 


"el reloj marca las cinco" 

"apagar el monitor antes de salir" 

"el importe del ticket es: 5.000 ptas." 

Código fuente 17 


Fecha 

Las fechas son tratadas también por el lenguaje como una unidad de información, ya que aunque 
puedan combinar números, letras y símbolos para su representación, internamente se almacenan con 
un valor numérico (entero largo o Long). 

Los delimitadores utilizados para las fechas son el símbolo de almohadilla ( # ), o las comillas dobles ( 
“ ). En función del delimitador que usemos para encerrar una fecha, se deberá especificar en primer 
lugar el mes o el día de dicha fecha, como vemos en el Código fuente 18. 


Fecha: 25 de 

agosto 

de 2002 


#8/25/2002# 

< “ - 

primero 

el mes 

"25/08/2002" 

< “ - 

primero 

el día 


Código fuente 18 


Lógico 

Un dato lógico es aquel que representa uno de dos valores posibles: Verdadero o Falso, indicándose 
estos valores en VB.NET como True y False respectivamente. 


Compuestos 

Un dato compuesto está fotmado por varios datos de tipo simple. Como ya hemos mencionado, una 
cadena es un dato compuesto (por datos simples de tipo carácter) aunque algunos lenguajes lo traten 
como simple. 

Como dato compuesto disponemos de los arrays o matrices, que son tablas de datos con un número 
fijo o variable de elementos. 


Definidos por el programador 

En esta categoría se encuentran la estructura (Structure), que consiste en un tipo especial de dato 
compuesto por varios de los tipos existentes en el lenguaje; y el tipo enumerado (Enum), consistente 
en una lista de valores numéricos a los que asociamos un descriptor literal. Ambos tipos nos permiten 
combinar un conjunto de datos de forma más compleja que los tipos compuestos. 
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Tanto los tipos compuestos como los definidos por el usuario serán tratados más adelante con mayor 
profundidad, ya que es recomendable conocer algunos aspectos previos sobre el lenguaje antes de 
ahondar en estos tipos. 


Identificadores 

Un identificador es un nombre que el programador asigna a ciertos elementos del programa, como 
variables, constantes, rutinas de código, etc., para poder reconocerlos durante el desarrollo del mismo. 

Dicho nombre debe comenzar por una letra y no puede ser una palabra reservada del lenguaje, ni 
contener caracteres especiales como operadores aritméticos, de relación, etc. 

Aunque podemos utilizar cualquiera de nuestra elección, es muy recomendable que el nombre del 
identificador esté relacionado con su contenido, de forma que durante la revisión del código del 
programa, sepamos rápidamente lo que contiene simplemente con ver su nombre. 


Palabras reservadas 

Son todos aquellos nombres que forman parte integrante del lenguaje de programación, como puedan 
ser instrucciones, estructuras de código, funciones propias del lenguaje, objetos, etc. Este tipo de 
palabras no las podemos utilizar como identificadores, debido a que son empleadas internamente por 
el lenguaje. 

Algunas palabras reservadas en Visual Basic .NET son: Dim, Sub, Function, Public, For, Integer. 


Estructura de un programa 

Como ya explicamos en el tema que describía la escritura de la primera aplicación en VB.NET, los 
elementos mínimos que debe tener toda aplicación escrita en este lenguaje (y en general, la mayoría de 
lenguajes) son un módulo de código, y un procedimiento de entrada o inicio del programa, que en 
VB.NET tendrá el nombre Main(), todo ello contenido en un archivo de código con extensión .VB. 

En la Figura 47 podemos ver en un diagrama, la estructura en niveles de un programa. 

Si el programa a ejecutar es de pequeño tamaño, el procedimiento de entrada al mismo contendrá todo 
el código necesario. Sin embargo esta situación no es muy frecuente, lo habitual es que los programas 
tengan una cantidad de código considerable, que obligue a separarlo en diferentes rutinas. Por este 
motivo el procedimiento Main() contiene generalmente código para inicializar valores en el programa, 
y hacer llamadas a otros procedimientos entre los que está repartido el resto del código. 

Debido a que los próximos ejemplos mostrados en el texto estarán basados en programas sencillos, por 
el momento sólo precisaremos usar el procedimiento Main(). 
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Programa 

Archivo de código 

Módulo 

Procedimiento 

Código 

Iiistrucciólil 

Instrucción! 

Insti ucciónN 


Figura 47. Estructura en niveles de los elementos de un programa en VB.NET. 


Ubicación del código en el programa 

El código de un programa se sitúa en rutinas de código o procedimientos, en los cuales escribimos las 
instrucciones necesarias para resolver un determinado problema. Dependiendo de la complejidad y la 
cantidad de situaciones a resolver, un programa tendrá un número determinado de procedimientos. 

Los procedimientos serán tratados con profundidad en un próximo tema, de momento basta saber que 
para declarar un procedimiento utilizaremos la palabra clave Sub, seguida del nombre del 
procedimiento, escribiendo a continuación las instrucciones necesarias y finalizando el procedimiento 
con End Sub, como vemos en el Código fuente 19, en el que creamos un procedimiento con el nombre 
Calcular(). 


Sub Calcular() 

instrucciónl 

instrucción2 

instrucción3 

instrucción4 

instrucción5 


instrucción 
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3. El lenguaje. Elementos básicos 


End Sub 


Código fuente 19 


Cuando creamos una aplicación VB.NET de tipo consola usando VS.NET, es el propio IDE quién se 
encarga de crear por nosotros la estructura básica del programa: crea un archivo de código conteniendo 
un módulo que tiene el procedimiento de entrada, sólo falta el código del programador. 

Todos los elementos que componen una aplicación VB.NET, son organizados por VS.NET bajo el 
concepto de proyecto. Un proyecto aglutina los archivos de código de la aplicación, recursos, 
referencias a clases globales de la plataforma .NET, etc. Consulte el lector el tema dedicado a la 
implementación de programas en .NET para una descripción general de estos tipos de archivo. 

Para las pruebas de los siguientes apartados crearemos desde el IDE un nuevo proyecto de tipo 
consola. 


Comentarios 

Es una buena costumbre incluir comentarios aclaratorios en el código del programa, que sirvan como 
documentación posterior a la hora de revisar el código para realizar una posible corrección debido a un 
mal funcionamiento, o porque tengamos que ampliar la funcionalidad del programa. 

En VB.NET se utiliza el carácter de comilla simple ( ' ) para poder escribir anotaciones dentro del 
código del programa. Una vez incluida la comilla, todo lo que vaya a continuación será tenido en 
cuenta como comentario y no como instrucciones ejecutables. Ver Código fuente 20. 


Module Modulel 
Sub Main() 

1 vamos a comenzar a ver el código 
instrucciónl 

instrucción2 ' este comentario va a continuación de una línea 
1 esta es la última instrucción 
instrucción3 
End Sub 
End Module 

Código fuente 20 


Indentación del código 

La indentación o sangría es una técnica para escribir el código de un programa, consistente en situar 
las líneas de código a diferentes niveles de tabulación o profundidad, de forma que se facilite su 
lectura al ser revisado. 

Al crear una aplicación con VS.NET, podemos comprobar como el propio editor de código fuente 
indenta el código según lo escribimos, siendo una práctica muy ligada a las estructuras de control, que 
veremos próximamente, ya que nos permite ver rápidamente las instrucciones contenidas dentro de 
estas estructuras y situamos en las líneas necesarias. 
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En el Código fuente 21 se muestran unas líneas en pseudocódigo que contienen estructuras y código 
dentro de las mismas, de forma que pueda comprobar el lector el modo en que se realiza la tabulación. 


comienzo 

' líneas con indentación al mismo nivel 

instrucciónl 

instrucción2 


' comienzo de estructura 
EstructuraA <expresión> 

' líneas indentadas a un nivel de profundidad 

instrucciónAl 

instrucciónA2 


' comienza estructura anidada 
EstructuraB <expresión> 

' líneas indentadas a segundo nivel de profundidad 
instrucciónBl 
instrucciónB2 
FinEstructuraB 


' según salimos de las estructuras 
' volvemos a subir niveles de indentación 
instrucciónA3 
instrucciónA4 
FinEstructuraA 


instrucción3 

instrucción4 

final 

Código fuente 21 


Cuando queramos indentar una línea simplemente hemos de situamos al comienzo de la misma y 
pulsar la tecla [TAB], para quitar tabulaciones pulsaremos [TAB + MAYUS]. 

Como ya hemos indicado, el entorno de desarrollo de VS.NET por defecto indenta automáticamente el 
código según lo vamos escribiendo. 

Si queremos variar algún aspecto en cuanto a este comportamiento del editor, podemos configurar las 
características de indentación establecidas en el IDE seleccionando la opción de menú Herramentas + 
Opciones. 

Al abrir la ventana Opciones seleccionaremos la caipeta Editor de texto, y dentro de esta la caipeta 
Basic, que contendrá la configuración para el editor de texto correspondiente a este lenguaje. 

Haciendo clic en el elemento Tabulaciones se mostrarán las propiedades de indentado, que podemos 
modificar para adaptarlas a nuestras preferencias, tal y como vemos en la Figura 48. 
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Figura 48. Propiedades de indentado en el IDE de Visual Studio .NET. 


Manejo de la consola del sistema 

Antes de pasar a trabajar con los elementos del lenguaje vamos a dar unos breves apuntes sobre el 
objeto Consolé, que representa a una ventana MS-DOS, símbolo del sistema, o consola, como la 
denominaremos fundamentalmente en este texto. 

En el tema anterior ya tuvimos un primer contacto con la consola realizando nuestro primer programa, 
el conocido Hola mundo. Sin embargo, en este apartado vamos a dar unas indicaciones básicas de uso, 
ya que la consola será el elemento principal que utilizaremos para mostrar y obtener datos por 
pantalla. Debido a su sencillez de uso y rápida ejecución, la consola se convierte en el elemento ideal 
para realizar pruebas, y en nuestro caso, mostrar ejemplos. 

Aunque la consola es un objeto, no vamos a entrar aquí a describir en qué consisten los objetos ni su 
uso en profundidad, recomendamos al lector la consulta de los temas específicos sobre programación 
orientada a objetos del texto. 

De igual modo, los conceptos sobre variables, parámetros, concatenación, y demás aspectos del 
lenguaje que se utilizan en estos ejemplos introductorios a la consola, se explicarán más adelante en 
los apartados correspondientes a los elementos del lenguaje. 


Visualizar información en la consola 

Para escribir texto llamaremos al método Write( ) o WriteLine( ) del objeto Consolé. Como 
parámetros a estos métodos, es decir, entre los paréntesis que los acompañan, situaremos la 
información a mostrar: una cadena, variable o expresión. Veamos un ejemplo en el Código fuente 22. 
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Module Modulel 
Sub Main() 

Dim UnValor As String 
UnValor = "algo más de texto" 

1 esta cadena va en una línea 

Consolé.WriteLine("Una línea de prueba") 

' ahora mostramos una variable 
Consolé.WriteLine(UnValor) 

' las siguientes cadenas se ponen juntas 
Consolé.Write("Coche") 

Consolé.Write("Tren") 

' aquí añadimos una linea en blanco 
Consolé.WriteLine() 

End Sub 
End Module 

Código fuente 22 


La diferencia entre Write( ) y WriteLine() consiste en que mediante el primero, todas las llamadas que 
hagamos a ese método escriben el texto seguido, mientras que el último lo hace en líneas separadas. 
La Figura 49 muestra el resultado del anterior ejemplo. 


| : • K:\cubo\ConsoleApplication 1 \bin\Console Application 1 .ex 

^jnj 

X 

Una línea de prueba 


▲ 

algo más de texto 



CocheTren 

Press any key to continué 


d 

< 1 

A 



Figura 49. Escritura de texto con el objeto Consolé. 


Si al escribir un texto en la consola, queremos combinar una cadena de caracteres con el contenido de 
una variable, podemos optar por dos técnicas. 

Por un lado podemos concatenar (unir) la cadena a la variable mediante el operador de concatenación 
del lenguaje ( & ). Ver Código fuente 23. 


Module Modulel 
Sub Main() 

Dim UnValor As String 
UnValor = "al parque" 

Consolé.WriteLine("Vamos de paseo " & UnValor) 
End Sub 
End Module 

Código fuente 23 


El resultado se muestra en la Figura 50. 
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Figura 50. Concatenar valores al mostrarlos en la consola. 


La otra técnica consiste en utilizar parámetros sustituibles, indicando en la cadena los lugares en los 
que queramos que se incluyan el contenido de las variables que necesitemos. 

Por ejemplo, supongamos que en la cadena “Hola voy a un coche”, queremos insertar los valores 
“conducir” y “azul”, que están situados en variables, de modo que la cadena resultante sea: “Hola voy 
a conducir un coche azul”. 

Para solucionar este problema, en la cadena tenemos que incluir unos marcadores que indican que en 
ese punto vamos a sustituir el marcador por una variable, y además el número de orden de la variable, 
tal y como la vamos a situar al llamar al método WriteLine( ). Los marcadores son los símbolos de 
llaves utilizados de una forma similar a la siguiente: {0} 

Cuando llamamos a WriteLine( ) sabemos que le pasamos como parámetro el valor a mostrar, pero 
podemos pasar más parámetros separados por comas, como pueden ser variables; dichos parámetros 
serán utilizados para sustituirse en la cadena pasada como primer parámetro. La Figura 51 muestra un 
esquema del uso de este método. 


Dim Un Valor As String 
Dim Otro Valor As String 

Un Valor = "conducir" ,- 

Otro Valor = "azul" \ 

Consolé. WriteLine("Hola voy a {0} un coche {1}", UnValor, Otro Valor) 
Resultado: Hola voy a conducir' un coche azul 

Figura 51. Esquema de parámetros sustituibles al usar el objeto Consolé. 

Podemos comprobar, que a continuación de la cadena pasada en WriteLine( ), la primera variable se 
sustituirá en el marcador {0}, la siguiente en el {1}, y así sucesivamente. 


Obtener información de la consola 

Para tomar el texto tecleado en el indicador de comandos de la ventana de la consola disponemos del 
método ReadLine( ), que devuelve una cadena que podemos pasar a una variable para su tratamiento 
posterior. Veamos un ejemplo en el Código fuente 24. 


Module Modulel 
Sub Main() 
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Dim UnValor As String 

Consolé.WriteLine("Escribir algo") 

UnValor = Consolé.ReadLine() 

Consolé.WriteLine("Hemos escrito el siguiente texto") 
Consolé.WriteLine(UnValor) 

End Sub 
End Module 

Código fuente 24 


La Figura 52 muestra el resultado. 



Figura 52. Obtención del texto escrito en la consola. 


Variables 

Una variable es aquel elemento dentro de un programa que guarda un valor; dicho valor podrá cambiar 
durante el funcionamiento del programa (de ahí el nombre de variable). El contenido de la variable no 
es otra cosa que una posición en la memoria del ordenador que almacena el valor, y debido a que la 
memoria es un medio de almacenamiento no permanente, al finalizar el programa el valor se perderá, 
por lo que el uso de variables se limita al tiempo de ejecución del programa. Para manejar y asignar 
nombre a una variable, emplearemos un identificador. 


Declaración 

La declaración de una variable es el proceso por el cual creamos e inicializamos una nueva variable en 
el programa. 

Para declarar una variable utilizaremos la palabra clave Dim, seguida del identificador o nombre que 
daremos a dicha variable. Ver Código fuente 25. 


Sub Main() 

Dim MiValor 
End Sub 

Código fuente 25 
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Denominación 

Como se comentaba en el apartado sobre identificadores, el nombre que podemos asignar a una 
variable tiene que seguir ciertas reglas: debe comenzar por letra, no puede ser una palabra reservada, 
ni incluir caracteres especiales del lenguaje. El Código fuente 26 nos muestra algunos ejemplos de 
declaraciones. 


Sub Main() 

1 declaraciones correctas 

Dim B 

Dim Hola 

Dim ABCD 

Dim Nuevo10 

Dim Es_otro 

1 declaraciones incorrectas 
Dim 7Nuevo 
Dim Avan+zar 

Dim End 1 nombre incorrecto 
Dim Va-bien 
End Sub 

Código fuente 26 


Como podemos comprobar en este fuente, y ya explicamos antes, incluimos comentarios en el código 
usando la comilla simple (' ), seguida del comentario correspondiente. 


Lugar de la declaración 

Podemos declarar variables en muy diversos lugares del código. El punto en el que declaremos una 
variable será determinante a la hora del ámbito o accesibilidad a esa variable desde otros puntos del 
programa. Por ahora, y ciñéndonos a la declaración de variables dentro de procedimientos, 
recomendamos declarar todas las variables en la cabecera o comienzo del procedimiento, para dar 
mayor claridad al mismo. Después de la declaración, escribiremos el resto de instrucciones del 
procedimiento. 


rwv • n* • r 

Tipmcacion 

La tipificación de una variable es la operación por la cual, al declarar una variable, especificamos qué 
clase de valores o tipo de datos vamos a poder almacenar en dicha variable. 

En VB.NET utilizamos la palabra clave As seguida del nombre del tipo de datos, para establecer el 
tipo de una variable. Ver Código fuente 27. 


Sub Main() 


Dim Valor As String 1 

cadena de caracteres 

Dim Cuenta As Integer 

1 numérico entero 

Dim FhActual As Date 1 
End Sub 

fecha 


Código fuente 27 
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La Tabla 3 muestra la relación de tipos de datos disponibles en el lenguaje. 


Tipo de dato 
en VB.NET 

Tipo correspondiente en 
el entorno de .NET 
Framework 

Tamaño 

de 

ocupación 

en 

memoria 

Rango de valores 

Boolean 

System.Boolean 

1 byte 

True o False (Verdadero o Falso) 

Byte 

System.Byte 

1 byte 

0 a 255 (sin signo) 

Char 

System. Char 

2 bytes 

0 a 65535 (sin signo) 

Date 

System.DateTime 

8 bytes 

1 de enero de 1 a 31 de diciembre de 

9999 

Decimal 

System.Decimal 

12 bytes 

+/- 

79.228.162.514.264.337.593.543.950.335 
sin punto decimal; 

+/-7,9228162514264337593543950335 
con 28 posiciones a la derecha del signo 
decimal; el número más pequeño distinto 
de cero es 

+/-0,0000000000000000000000000001 

Double 

(punto flotante 
con precisión 
doble) 

System.Double 

8 bytes 

-1,79769313486232E308a 
-4,94065645841247E-324 para valores 
negativos; 4,94065645841247E-324 a 
1,79769313486232E308 para valores 
positivos 

Integer 

System.lnt32 

4 bytes 

-2.147.483.648 a 2.147.483.647 

Long (entero 
largo) 

System.lnt64 

8 bytes 

-9.223.372.036.854.775.808 a 
9.223.372.036.854.775.807 

Short 

System.lntló 

2 bytes 

-32.768 a 32.767 

Single 

(punto flotante 
con precisión 
simple) 

System. Single 

4 bytes 

-3,402823E38 a -l,401298E-45 para 
valores negativos; l,401298E-45 a 
3,402823E38 para valores positivos 

Object 

System. Object 

4 bytes 

Cualquier tipo 

String (cadena 
de longitud 
variable) 

System. String 

10 bytes + 
(2* 

longitud de 
la cadena) 

Desde 0 a unos 2.000 millones de 
caracteres Unicode 

Estructura (tipo 
de dato definido 

Hereda de 

System. ValueType 

Suma de 
los 

Cada miembro de la estructura tiene un 
intervalo de valores determinado por su 
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por el usuario) 

System. ValueType 

tamaños de 

tipo de datos e independiente de los 



los 

intervalos de valores correspondientes a 



miembros 

los demás miembros 



de la 




estructura 



Tabla 3. Tipos de datos en VB.NET. 


Si al declarar una variable no indicamos el tipo, por defecto tomará Object, que corresponde al tipo de 
datos genérico en el entorno de ejecución de .NET Framework, y que admite cualquier valor. 

Según la información que acabamos de ver, si declaramos una variable de tipo Byte e intentamos 
asignarle el valor 5899 se va a producir un error, ya que no se encuentra en el intervalo de valores 
permitidos para esa variable. Esto puede llevar al lector a preguntar: “¿por qué no utilizar siempre 
Object y poder usar cualquier valor?, o mejor ¿para qué necesitamos asignar tipo a las variables?”. 

El motivo de tipificar las variables reside en que cuando realizamos una declaración, el entorno de 
.NET debe reservar espacio en la memoria para los valores que pueda tomar la variable, como puede 
ver el lector en la tabla anterior, no requiere el mismo espacio en memoria una variable Byte que una 
Date. Si además, declaramos todas las variables como Object, los gastos de recursos del sistema serán 
mayores que si establecemos el tipo adecuado para cada una, ya que como .NET Framework no sabe 
el valor que puede tomar en cada ocasión la variable, debe realizar un trabajo extra de adecuación, 
consumiendo una mayor cantidad de recursos. 

Una correcta tipificación de las variables redundará en un mejor aprovechamiento de las capacidades 
del sistema y en un código más veloz en ejecución. Cuantos más programas se diseñen optimizando en 
este sentido, el sistema operativo ganará en rendimiento beneficiándose el conjunto de aplicaciones 
que estén en ejecución. 

VS.NET dispone de una ayuda al asignar el tipo a una variable, que nos muestra la lista de tipos 
disponibles para poder seleccionar uno sin tener que escribir nosotros el nombre. Al terminar de 
escribir la palabra As, aparecerá dicha lista, en la que pulsando las primeras letras del tipo a buscar, se 
irá situando en los más parecidos. Una vez encontrado, pulsaremos la tecla [INTRO] o [TAB] para 
tomarlo. Ver Figura 53. 


0 Module Modulel 


i 


Sub 


Main() 

Din MiDato 


End Sub 


End Module 


as str| 

StateChangeEventArgs 
él StateChangeEventHandler 
i ¿p StatementType 
STAThreadAttribute 

B 1 

<&* Strings 

StrongTypingException 
^ Switch 
{} SymbolStore 

SyntaxErrorException 


±1 


zl 


Figura 53. Lista de tipos de datos al declarar una variable. 
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Declaración múltiple en línea 

En el caso de que tengamos que declarar más de una variable del mismo tipo, podemos declararlas 
todas en la misma línea, separando cada una con una coma, e indicando junto a cada variable el tipo de 
dato que va a tener; o bien, si especificamos el tipo de dato al final de la lista de variables, todas 
tendrán el mismo tipo de dato. Ver el Código fuente 28. 


Dim Nombre As String, Cantidad As Integer, MiFecha As Date 
Dim Importe, Totalizado, Precisión As Integer 

Código ñiente 28 


Asignación de valor 

Para asignar un valor a una variable utilizaremos el operador de asignación: el signo igual ( = ), 
situando a su izquierda la variable a asignar, y a su derecha el valor. Ver Código fuente 29. 


Dim Cuenta As Integer 
Cuenta = 875 


Código ñiente 29 


Según el tipo de dato de la variable, puede ser necesario el uso de delimitadores para encerrar el valor 
que vamos a asignar. 

• Tipos numéricos. Las variables de tipos de datos numéricos no necesitan delimitadores, se 
asigna directamente el número correspondiente. Si necesitamos especificar decimales, 
utilizaremos el punto (. ) como carácter separador para los decimales 

• Cadenas de caracteres. En este caso es preciso encerrar la cadena entre comillas dobles ("). 

• Tipo carácter simple. Al asignar un carácter a una variable de tipo Char debemos encerrarlo 
entre comillas dobles igual que hacemos con una cadena, situando además, la letra c junto al 
carácter, fuera de las comillas, aunque esto último no sería obligatorio. Veamos un ejemplo en 
el Código fuente 30. 


Dim Letra As Char 
Letra = "A"c 

Letra = "A" ' <-- no es necesario el uso de c junto al carácter a asignar 

Código fuente 30 

• Fechas. Al asignar una fecha a una variable de este tipo, podemos encerrar dicho valor entre 
el signo de almohadilla ( # ) o comillas dobles ( " ). El formato de fecha a utilizar depende del 
delimitador. Cuando usemos almohadilla la fecha tendrá el formato Mes/Día/Año; mientras 
que cuando usemos comillas dobles el formato será Día/Mes/Año. 
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Las fechas pueden contener además información horaria que especificaremos en el formato: 
Hora:Minutos:Segundos FranjaHoraría. En el caso de que no indiquemos la franja horaria 
(AM/PM), y si estamos utilizando el signo almohadilla como separador, el entorno insertará 
automáticamente los caracteres de franja horaria correspondientes. 

• Tipos lógicos. Las variables de este tipo sólo pueden tener el valor True (Verdadero) o False 
(Falso). 

Además de asignar valores de la forma que acabamos de explicar, podemos asignar el contenido de 
una variable a otra, o el resultado de una expresión a una variable, como veremos más adelante en el 
apartado dedicado a operadores. El Código fuente 31 muestra unos ejemplos de asignación a variables, 
que después visualizamos en la consola. 


Module Modulel 
Sub Main() 

Dim ImporteFac As Integer 

Dim Precio As Double 

Dim Valor As String 

Dim Letra As Char 

Dim FhActual As Date 

Dim FhNueva As Date 

Dim FhCompletaUno As Date 

Dim FhCompletaDos As Date 

Dim FhHora As Date 

Dim Correcto As Boolean 

ImporteFac = 875 

Precio = 50.75 

Valor = "mesa" 

Letra = "A"c 

FhActual = #5/20/2001# ' mes/día/año 
FhNueva = "25/10/2001" ' dia/mes/año 

FhCompletaUno = #10/18/2001 9:30:00 AM# 

FhCompletaDos = "7/11/2001 14:22:00" 

FhHora = #5:40:00 PM# 

Dim NuevaCadena As String 

NuevaCadena = Valor 1 asignar una variable a otra 
Correcto = True 

' mostrar variables en la consola 

Consolé.WriteLine("Variable ImporteFac: {o}", ImporteFac) 

Consolé.WriteLine("Variable Precio: {o}", Precio) 

Consolé.WriteLine("Variable Valor: {o}", Valor) 

Consolé.WriteLine("Variable Letra: {o}", Letra) 

Consolé.WriteLine("Variable FhActual: {0} " , FhActual) 

Consolé.WriteLine("Variable FhNueva: {o}", FhNueva) 

Consolé.WriteLine("Variable FhCompletaUno: {o}", FhCompletaUno) 

Consolé.WriteLine("Variable FhCompletaDos: {o}", FhCompletaDos) 

Consolé.WriteLine("Variable FhHora: {o}", FhHora) 

Consolé.WriteLine("Variable NuevaCadena: {o}", NuevaCadena) 

Consolé.WriteLine("Variable Correcto: {0} " , Correcto) 

Consolé.ReadLine() 

End Sub 
End Module 

Código fuente 31 

Otra cualidad destacable en este apartado de asignación de valores, reside en que podemos declarar 
una variable y asignarle valor en la misma línea de código, como vemos en el Código fuente 32. 
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Dim Valor As String = "mesa" 

Dim ImporteFac As Integer = 875 

Código fuente 32 


Valor inicial 

Toda variable declarada toma un valor inicial por defecto, a no ser que realicemos una asignación de 
valor en el mismo momento de la declaración. A continuación se muestran algunos valores de inicio 
en función del tipo de dato que tenga la variable: 

• Numérico. Cero ( 0 ). 

• Cadena de caracteres. Cadena vacía (""). 

• Fecha. 01/01/0001 0:00:00. 

• Lógico. Falso (False). 

• Objeto. Valor nulo (Nothing). 

El Código fuente 33 muestra un ejemplo de valores iniciales. 


Sub Main() 

Dim ImporteFac As Integer 

Dim Valor As String 

Dim FhActual As Date 

Dim FhNueva As Date 

Dim ValorLogico As Boolean 

Dim UnObjeto As Object 

1 mostrar variables en la consola 

Consolé.WriteLine("Variable ImporteFac: {0}", ImporteFac) 
Consolé.WriteLine("Variable Valor: {0}", Valor) 

Consolé.WriteLine("Variable FhActual: {0}", FhActual) 
Consolé.WriteLine("Variable FhNueva: {0}", FhNueva) 

Consolé.WriteLine("Variable ValorLogico: {0} " , ValorLogico) 
Consolé.WriteLine("Variable UnObjeto: {0}", UnObjeto) 
Consolé.ReadLine() 

End Sub 

Código ñiente 33 


Debemos tener en cuenta al ejecutar estas líneas, que en los casos de las variables de tipo cadena y 
objeto no se mostrará nada, ya que se considera que están inicializadas pero vacías. 

Por otro lado podemos, inversamente, inicializar una variable que ya tiene valor, asignándole la 
palabra clave Nothing; con ello, la variable pasa a tener el valor por defecto o inicial. Ver el Código 
fuente 34. 


Sub Main() 

Dim Valor As String 
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Dim FhActual As Date 

Dim ValorLogico As Boolean 


' asignar valores a variables 

Valor = "mesa" 

FhActual = "10/8/2001" 

ValorLogico = True 


1 inicializar variables 

Valor = Nothing 

FhActual = Nothing 

ValorLogico = Nothing 


1 mostrar variables en la consola 

Consolé.WriteLine("Variable Valor: {0}" , 
Consolé.WriteLine("Variable FhActual: {0 
Consolé.WriteLine("Variable ValorLogico: 
Consolé.ReadLine() 

End Sub 

Valor) 

}", FhActual) 

{o}", ValorLogico) 


Código fuente 34 


Declaración obligatoria 

Es obligatorio, por defecto, la declaración de todas las variables que vayamos a utilizar en el código. 
En el caso de que intentemos utilizar una variable no declarada, se producirá un error. 

La declaración de variables proporciona una mayor claridad al código, ya que de esta forma, sabremos 
en todo momento si un determinado identificador corresponde a una variable de nuestro 
procedimiento, de un parámetro, etc. 

Mediante la instrucción Option Explicit, y sus modificadores On/Off, podemos requerir o no la 
declaración de variables dentro del programa. 

• Option Explicit On. Hace obligatoria la declaración de variables. Opción por defecto. 

• Option Explicit Off. Hace que no sea obligatoria la declaración de variables. 

Podemos aplicar esta instrucción para que tenga efecto a nivel de proyecto y a nivel de fichero de 
código. 


Option Explicit a nivel de proyecto 

Para establecer Option Explicit a nivel de proyecto, debemos abrir la ventana Explorador de 
soluciones, hacer clic en el nombre del proyecto, y a continuación pulsar el botón de propiedades en 
esa misma ventana. Esto mostrará la ventana de propiedades del proyecto, en cuyo panel izquierdo 
haremos clic sobre el elemento Generar. Finalmente abriremos la lista desplegable del elemento 
Option Explicit, seleccionaremos un valor (On, Off) y pulsaremos Aplicar y Aceptar. Ver Figura 54. 

Con la declaración obligatoria desactivada podríamos escribir código como el mostrado en el Código 
fuente 35 


Sub Main() 

Valor = "coche" 
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MiDato = 984 




Consolé.WriteLine( 

[ "Variable Valor: 

{ o }", 

Valor) 

Consolé.WriteLine( 
Consolé.ReadLine() 
End Sub 

[ "Variable MiDato: 

{0}" 

, MiDato) 


Código fuente 35 



Figura 54. Propiedades del proyecto para modificar la declaración obligatoria de variables. 


Mucho más fácil que tener que declarar las variables ¿verdad?. Pues precisamente esta facilidad es uno 
de los graves problemas de no declarar variables. En un procedimiento de prueba con poco código, 
esto no supone una importante contrariedad. Sin embargo pensemos un momento, que en lugar de un 
pequeño procedimiento, se trata de una gran aplicación con muchas líneas de código, procedimientos, 
y cientos de variables. Al encontramos con una variable de esta forma, no sabremos si esa variable ya 
la hemos utilizado con anterioridad en el procedimiento, si ha sido pasada como parámetro al mismo, 
etc. Estas circunstancias provocan que nuestro código se vuelva complejo de interpretar, retrasando la 
escritura general de la aplicación. Si volvemos a activar Option Explicit On, inmediatamente sabremos 
que algo va mal, ya que toda variable no declarada, quedará subrayada por el IDE como un error de 
escritura. Las ventajas son evidentes. 


Option Explicit a nivel de fichero 

Para establecer la declaración obligatoria a nivel de fichero, debemos situamos al comienzo del 
fichero de código y escribir la instrucción Option Explicit con el modificador correspondiente. El 
Código fuente 36 muestra un ejemplo de cómo desactivar esta característica en el fichero de código 
actual. 
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1 desactivar declaración obligatoria de variables 
1 ahora podemos, dentro de este fichero de código, 

' escribir todas las variables sin declarar 

Option Explicit Off 

Module Modulel 

Sub Main() 

Valor = "coche" 

MiDato = 984 

Consolé.WriteLine("Variable Valor: {o}", Valor) 
Consolé.WriteLine("Variable MiDato: {o}", MiDato) 
Consolé.ReadLine() 

End Sub 

End Module 

Código fuente 36 


Option Explicit a nivel de fichero, nos permite establecer el modo de declaración de variables sólo 
para ese fichero en el que lo utilizamos, independientemente del tipo de obligatoriedad en declaración 
de variables establecido de forma general para el proyecto. Podemos por ejemplo, tener establecido 
Option Explicit On para todo el proyecto, mientras que para un fichero determinado podemos no 
obligar a declarar variables escribiendo al comienzo del mismo Option Explicit Off. 

El hecho de tener Option Explicit Off no quiere decir que no podamos declarar variables, podemos, 
por supuesto declararlas, lo que sucede es que el compilador no generará un error al encontrar una 
variable sin declarar. 

El otro grave problema al no declarar variables proviene por la incidencia en el rendimiento de la 
aplicación. Cuando tenemos Option Explicit Off, el entorno de .NET por cada identificador que 
encuentre sin declarar, crea una nueva variable, y ya que desconoce qué tipo de dato querría utilizar el 
programador, opta por asignarle el más genérico: Object. 

Una excesiva e innecesaria proliferación de variables Object afectan al rendimiento del programa, ya 
que .NET Framework debe trabajar doblemente en la gestión de recursos utilizada por dichas 
variables. En el próximo apartado trataremos sobre la obligatoriedad a la hora de tipificar variables. 

Por todo lo anteriormente comentado, a pesar de la engañosa facilidad y flexibilidad de Option 
Explicit Off, nuestra recomendación es tener configurado siempre Option Explicit On a nivel de 
aplicación, nos ahorrará una gran cantidad de problemas. 


Tipificación obligatoria 

Cuando declaramos una variable, no es obligatorio por defecto, establecer un tipo de dato para la 
misma. Igualmente, al asignar por ejemplo, una variable numérica a una de cadena, se realizan 
automáticamente las oportunas conversiones de tipos, para transformar el número en una cadena de 
caracteres. Veamos un ejemplo en el Código fuente 37. 


Sub Main() 

1 no es necesario tipificar la variable, tipificación implícita, 
1 la variable Valor se crea con el tipo Object 
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Dim Valor 

' tipificación explícita 
Dim Importe As Integer 
Dim UnaCadena As String 

1 al asignar una fecha a la variable Valor, 

' sigue siendo de tipo Object, pero detecta que 
' se trata de una fecha y guarda internamente 
' esta información como un subtipo Date 
Valor = #8/20/2001# 

Importe = 590 

1 no es necesario hacer una conversión de tipos previa 
1 para asignar un número a una variable de cadena, 

' ya que se realiza una conversión implícita, 

1 la variable UnaCadena contiene la cadena "590" 
UnaCadena = Importe 

Consolé.WriteLine("Variable Valor: {o}", Valor) 

Consolé.WriteLine("Variable Importe: {o}", Importe) 
Consolé.WriteLine("Variable UnaCadena: {o}", UnaCadena) 
Consolé.ReadLine() 

End Sub 

Código fuente 37 


Como ya comentábamos en el apartado anterior, si no asignamos el tipo de dato adecuado al declarar 
una variable, .NET le asigna el tipo Object, lo que afecta negativamente al rendimiento de la 
aplicación. 

La instrucción Option Strict, junto a sus modificadores On/Off, nos permite establecer si en el 
momento de declarar variables, será obligatoria su tipificación. También supervisa la obligatoriedad de 
realizar una conversión de tipos al efectuar asignaciones entre variables, o de expresiones a variables. 

• Option Strict On. Hace obligatoria la tipificación de variables y la conversión de tipos 
explícita. 

• Option Strict Off. Hace que no sea obligatoria la tipificación de variables. La conversión 
entre tipos distintos en asignaciones y expresiones es realizada automáticamente por el 
entorno. Opción por defecto. 

Podemos configurar Option Strict a nivel de proyecto y de fichero de código, de igual forma que con 
Option Explicit. En el caso de configurar a nivel de proyecto, deberemos abrir la ventana de 
propiedades del proyecto, y en su apartado Generar, establecer el valor correspondiente en la lista 
desplegable Option Strict. Ver Figura 55. 


Si configuramos a nivel de fichero de código, escribiremos esta instrucción al comienzo del fichero 
con el modificador oportuno. Consulte el lector el anterior apartado para un mayor detalle sobre el 
acceso a esta ventana de propiedades del proyecto. 

En el ejemplo del Código fuente 38, establecemos Option Strict On a nivel de fichero de código, y a 
partir de ese momento, no podremos asignar un tipo de dato Double a un Integer, o un valor numérico 
a una variable String, por exponer un par de casos de los más comunes. El código erróneo será 
marcado por el IDE como un error de sintaxis, e igualmente se producirá un error si intentamos 
ejecutar el programa. 
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Figura 55. Configuración de Option Strict a nivel de proyecto. 


Option Strict On 
Module Modulel 
Sub Main() 

1 ahora es obligatorio establecer 

1 el tipo de dato a todas las variables 

Dim Valor As Integer 

Dim TotalGeneral As Double 

Dim Dato As String 

TotalGeneral = 500 

Valor = TotalGeneral ' error, no se permite la conversión implícita 

Dato = TotalGeneral ' error, no se permite la conversión implícita 
End Sub 

End Module 

Código fuente 38 


Si queremos que no se produzcan errores de conversión en el anterior código fuente, tendremos que 
emplear las funciones de conversión de tipo, o el objeto Convert, que proporciona el lenguaje. En este 
caso utilizaremos CInt( ), a la que pasamos un valor numérico como parámetro, y devuelve un tipo 
numérico Integer; y CStr(), que convierte a String el valor que pasemos como parámetro. Consulte el 
lector el conjunto de funciones de conversión en la documentación de .NET Framework para una 
descripción detallada. Veamos el resultado en el Código fuente 39. 
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Sub Main() 

1 ahora es obligatorio establecer 

1 el tipo de dato a todas las variables 

Dim Valor As Integer 

Dim TotalGeneral As Double 

Dim Dato As String 

TotalGeneral = 500 

Valor = CInt(TotalGeneral) ' conversión de tipos 

Dato = CStr(TotalGeneral) 1 conversión de tipos 

End Sub 

Código fuente 39 


Establecer Option Strict On requiere un mayor trabajo por parte del programador, ya que ha de ser más 
cuidadoso y escribir un código más correcto y preciso, lo cual es muy conveniente. Sin embargo, ya 
que la opción por defecto en este sentido es Option Strict Off, los ejemplos realizados a lo largo de 
este texto se ajustarán en este particular a dicha configuración, con ello ganamos en comodidad, ya 
que evitaremos la obligación de realizar conversiones de tipos en muy diversas situaciones. 


Avisos del IDE sobre errores en el código 

Al declarar una variable con un nombre incorrecto, o si se produce otro tipo de error en la escritura del 
código, el propio IDE se encarga de avisamos que existe un problema subrayando el fragmento de 
código conflictivo y mostrando una viñeta informativa al situar sobre dicho código el cursor. Ver 
Figura 56. 


Sub Main() 

Din MiUalor 
Din Total2 
Din 7Datos 


nombre correcto 
nonbre correcto 
nonbre incorrecto 


Din Nonbre+Grande 


nonbre incorrecto 




Se esperaba un final de instrucción. 


Figura 56. Código con errores subrayado por el IDE. 


Estos avisos constituyen una gran ayuda, ya que permiten al programador observar problemas en la 
escritura del código, antes incluso de ejecutar el programa. 

Existen multitud de avisos de muy diversa naturaleza, teniendo en cuenta que la tónica general 
consiste en que el código problemático quedará subrayado por el IDE hasta que no modifiquemos la 
línea en cuestión y la escribamos correctamente. 


Grabación del código modificado 

Cuando editamos el código fuente de nuestro programa, es conveniente cada cierto tiempo, cuanto más 
frecuente, mejor, grabar a disco el archivo o archivos de código modificados. Para ello podemos elegir 
la opción de menú del IDE Archivo + Guardar NomhreFichero o la combinación de teclas 
[CONTROL + S]. Esta costumbre nos puede ahorrar serios disgustos en el caso de un apagón 
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imprevisto del equipo cuando estamos en plena modificación de un programa y no hemos guardado 
los cambios realizados. 

De forma automática, el IDE graba los archivos del programa a disco cada vez que ejecutamos el 
proyecto, lo cual también supone una gran ayuda. 


Constantes 

Al igual que las variables, una constante es un elemento del lenguaje que guarda un valor, pero que en 
este caso y como su propio nombre indica, dicho valor será permanente a lo largo de la ejecución del 
programa, no pudiendo ser modificado. 

Para declarar una constante, debemos utilizar la palabra clave Const, debiendo al mismo tiempo 
establecer el tipo de dato y asignarle valor. Ver Código fuente 40. 


Sub Main() 

Const Color As String = "Azul" 

Const ValorMoneda As Double = 120.48 
End Sub 

Código fuente 40 


La tipificación de una constante se rige, al igual que las variables, por la configuración que tengamos 
establecida para la instrucción Option Strict. 

Si intentamos asignar un valor a una constante después de su asignación inicial, el IDE nos subrayará 
la línea con un aviso de error de escritura, y se producirá igualmente un error si intentamos ejecutar el 
programa. Ver Figura 57 

Sub Main() 

Const Color As String = "Azul" 

Const UalorMoneda As Double = 120.48 

Color = "Uerde" 

Una constante no puede ser el destino de una asignación. 

End Sub 

Figura 57. No es posible asignar valores a constantes después de su creación. 


La ventaja del uso de constantes reside en que podemos tener un valor asociado a una constante a lo 
largo de nuestro código para efectuar diversas operaciones. Si por cualquier circunstancia, dicho valor 
debe cambiarse, sólo tendremos que hacerlo en el lugar donde declaramos la constante. 

Supongamos como ejemplo, que hemos escrito un programa en el que se realiza una venta de 
productos y se confeccionan facturas. En ambas situaciones debemos aplicar un descuento sobre el 
total resultante. Ver Código fuente 41. 


Sub Main() 

' venta de productos 
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Dim Importe As Double 

Dim TotalVenta As Double 

Consolé.WriteLine("Introducir importe de la venta") 
Importe = Consolé.ReadLine() 


1 aplicar descuento sobre la venta 

TotalVenta = Importe - 100 

Consolé.WriteLine("El importe de la venta es: {0}", 
Consolé.WriteLine() 

1 

TotalVenta) 

1 

1 factura de mercancías 

Dim PrecioArt As Double 

Dim TotalFactura As Double 

Consolé.WriteLine("Introducir precio del articulo") 
PrecioArt = Consolé.ReadLine() 


1 aplicar descuento a la factura 

TotalFactura = PrecioArt - 100 

Consolé.WriteLine("El total de la factura es: {0}", 
Consolé.WriteLine() 

1 

TotalFactura) 

1 

Consolé.ReadLine() 


End Sub 



Código ñiente 41 


En el anterior ejemplo, realizamos el descuento utilizando directamente el valor a descontar. Si en un 
momento dado, necesitamos cambiar dicho valor de descuento, tendremos que recorrer todo el código 
e ir cambiando en aquellos lugares donde se realice esta operación. 

Empleando una constante para el descuento, y utilizando dicha constante en todos aquellos puntos del 
código en donde necesitemos aplicar un descuento, cuando debamos modificar el descuento, sólo 
necesitaremos hacerlo en la línea en la que declaramos la constante. Ver Código fuente 42. 


Sub Main() 

1 crear constante para calcular descuento 

Const DESCUENTO As Integer = 100 


1 venta de productos 

Dim Importe As Double 

Dim TotalVenta As Double 

Consolé.WriteLine("Introducir importe de la venta") 
Importe = Consolé.ReadLine() 


' aplicar descuento sobre la venta, atención al uso 
TotalVenta = Importe - DESCUENTO 

Consolé.WriteLine("El importe de la venta es: {0}", 
Consolé.WriteLine() 

1 

1 

de la constante 

TotalVenta) 

1 

' factura de mercancías 

Dim PrecioArt As Double 

Dim TotalFactura As Double 

Consolé.WriteLine("Introducir precio del artículo") 
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PrecioArt = Consolé.ReadLine() 

1 aplicar descuento a la factura, atención al uso de la constante 
TotalFactura = PrecioArt - DESCUENTO 

Consolé.WriteLine("El total de la factura es: {o}", TotalFactura) 
Consolé.WriteLine() 


Consolé.ReadLine() 

End Sub 

Código fuente 42 
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Depuración del código en ejecución 

Para comprobar el resultado de los ejemplos realizados hasta el momento hemos utilizado la salida a 
consola. Sin embargo esto no es suficiente información para el programador a la hora de desarrollar 
una aplicación. 

Un lenguaje o entorno de programación ha de proporcionar al programador utilidades que le permitan 
comprobar cómo se ejecuta el código de la aplicación línea por línea, información sobre el contenido 
de las variables, expresiones, puntos de interrupción en la ejecución, etc. Al conjunto de todas estas 
técnicas o utilidades que debe aportar el lenguaje se le denomina depurador. 

El entorno de Visual Studio .NET aporta un depurador muy completo, del que vamos a mostrar en este 
apartado algunas de sus funcionalidades básicas, dejando para un tema posterior un estudio más 
completo de esta herramienta. 

Y a que algunas características del depurador y de otros elementos se realizan mediante combinaciones 
de teclado, es recomendable configurar el IDE al perfil de programador más adecuado, o con el que 
nos encontremos más cómodos. 

Para configurar el perfil del usuario de VS.NET debemos situamos en la pestaña correspondiente a la 
página de inicio del IDE (Start). Si hemos cerrado esta ventana o pestaña podemos abrirla de nuevo 
muy fácilmente mediante la opción de menú del IDE Ayuda + Mostrar página de inicio. Ver Figura 
58. 
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Figura 58. Pestaña Página de inicio en la ventana principal del IDE. 


A continuación haremos clic en el elemento Mi perfil, situado en la parte izquierda de esta ventana. 
Esta opción nos permite configurar las características del tipo de programador que va a trabajar con el 
IDE, como las combinaciones de teclado, ayuda, etc. En nuestro caso particular, en la lista desplegable 
Combinación de teclado seleccionaremos Visual Basic 6, para que las combinaciones de teclas se 
adapten a las del programador de Visual Basic, el resto de opciones podemos dejar las que hay por 
defecto. Ver Figura 59. 


Forml.vb [Diseño] | Forml.vb Página de inicio | 


« t> 


Start 


Introducción 
Lo nuevo 

Comunidad en línea 
Titulares 

Búsqueda en línea 
Descargas 
Alojamiento Web 


Ni perfil 


Compruebe que la siguiente configuración está personalizada de 
acuerdo a sus necesidades: 

Perfil: 



| (personalizado) 

Combinación de teclado: 
Diseño de ventana: 

Filtro de ayuda: 


1 ] 


| Visual Basic 6 


1] 


[Predeterminados de Visual Studio~>~| 

| (no filter) 3 


Mostrar ayuda: 
Al iniciar: 


Ayuda interna (* Ayuda externa 
| Mostrar página de inicio 3 


Figura 59. Configuración del perfil del programador en el IDE. 
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Una vez configurado nuestro perfil de trabajo, sigamos con las cuestiones referentes al depurador. 

Un depurador nos permite introducimos dentro del código de nuestro programa durante la ejecución 
del mismo, para observar qué es lo que está ocurriendo: ejecutar línea a línea el programa, observar el 
valor de las variables, etc., aspectos todos ellos fundamentales para el seguimiento de errores y fallos 
en la lógica de la aplicación. 

VS.NET dispone de un excelente depurador; del que describiremos a continuación sus elementos más 
básicos, para que el lector pueda realizar un seguimiento más preciso de lo que sucede durante la 
ejecución de su aplicación. 

Para ejecutar el programa en modo de depuración pulsaremos [F8], o seleccionaremos el menú 
Depurar + Ir a instrucciones. Cualquiera de estas acciones iniciarán el programa dentro del contexto 
del depurador, deteniendo la ejecución en la primera línea de código ejecutable, destacada en color 
amarillo. La línea marcada en amarillo es la que está a punto de ejecutarse; para ejecutarla y pasar a la 
siguiente línea pulsaremos de nuevo [F8], y así sucesivamente hasta llegar a la última línea del 
programa, donde el depurador finalizará la ejecución. 

Podemos ver de forma inmediata el valor de una variable simplemente situando el cursor del ratón 
sobre ella, lo que mostrará el contenido en una viñeta informativa. Ver Figura 60 


□ Module Modulel 
Ó Sub Main() 

Din Importe As Integer 
Din Nombre As String 
Din UnaFecha As Date 




Importe = 5200 


No ni importe = 5200 

ia” 

[UnaFecha = #8^ 

27/2002# 

End Sub 


L End Module 


Figura 60. Visualizando el contenido de una variable durante la depuración. 


Podemos también ver con detalle el valor que van adquiriendo las variables a lo largo de la ejecución, 
abriendo la ventana Locales del depurador, mediante el menú Depurar + Ventanas + Locales, o 
pulsando [CTRL + ALT + V, L], Ver Figura 61. 


Locales 

Nombre 

Valor 

Tipo 

Importe 

5200 

Integer 

Nombre 

"Alicia" 

String 

UnaFecha 

#8/27/2002# 

Date 


Figura 61. Ventana Locales del depurador. 


Si en cualquier momento queremos continuar la ejecución normal del programa sin seguir usando el 
depurador pulsaremos [F5]. 
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Arrays 

Como se indicó en la descripción general de los componentes del lenguaje, un array es un tipo de dato 
compuesto, formado por un conjunto de elementos del mismo tipo de dato, al que se le asigna un 
identifícador para poder reconocerlo en el código del programa. También se les denomina matriz o 
vector, aunque en este texto emplearemos el término array de forma genérica. A cada elemento del 
array se accede mediante un índice, que indica el número de posición que ocupa dicho elemento 
dentro del array. 

Si tuviéramos que representar un array gráficamente, podríamos hacerlo mediante un conjunto de 
casillas, en cada una de las cuales se encontraría un elemento del array. Cada casilla tendría un número 
(índice) que identificaría de forma única su posición. Ver Figura 62. 


Array Artículos 


0 

1 

2 

3 

“mesa” 

“silla” 

“sofá” 

“anuario” 


Figura 62. Representación gráfica de un array. 


En este apartado vamos a realizar una introducción a los arrays y su uso de forma básica. Puesto que 
los tipos de datos pueden ser tratados al mismo tiempo como objetos en el lenguaje VB.NET, 
cubriremos algunos aspectos avanzados sobre arrays al llegar a la programación con objetos. 


Declaración 

Para declarar un array actuaremos prácticamente igual que para declarar una variable normal, con la 
diferencia de que utilizaremos los paréntesis junto al nombre de la variable, para indicar que se trata de 
un array, y opcionalmente, dentro de los paréntesis, indicaremos el número de elementos de que 
inicialmente va a constar el array. También es posible, asignar valores a los elementos en el mismo 
momento de su declaración. 

Debemos tener en cuenta a la hora de establecer el número de elementos, que el primer índice de un 
array es el cero, por lo que al ser creado, el número real de elementos en un array será el especificado 
en la declaración más uno. 

La Figura 63 muestra un esquema de la declaración de un array. 

A continuación vemos unos ejemplos de creación de arrays en el Código fuente 43. 


Sub Main() 

1 array sin elementos 
Dim Colores() As String 

1 array con 4 elementos vacíos: de 0 a 3 
Dim Nombres(3) As String 

' array con 3 elementos, cuyos valores asignamos 

' en el momento de la declaración del array 

Dim Frutas() As String = {"Manzana", "Naranja", "Pera"} 
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End Sub 


Código fuente 43 


I<lentific;i<loi’ Variable 


► Número de elementos 


Dim Colores(3) As Striiig-► 


Tipo de dato de elementos 


C olores (0) 

Colores(l) 

Colores(2) 

Colores (3) 

“Azul” 

“Venle” 

“Rojo'' 

“Naranja” 


Figura 63. Declaración de un array. 


Al declarar un array, todos sus valores son del mismo tipo de dato. Si necesitamos que dichos valores 
sean de tipos diferentes, debemos declarar el array como tipo Object, ya que al ser este el tipo de dato 
genérico en el entorno de .NET, nos permitirá asignar valores de distintos tipos al array. 


Asignación y obtención de valores 

Para asignar y obtener valores de los elementos de un array, actuaremos igual que para una variable 
normal, pero empleando además el índice entre paréntesis junto al nombre de la variable, para indicar 
qué posición queremos manipular. Ver Código fuente 44. 


Sub Main() 

1 array con 4 elementos: de 0 a 3 
Dim Nombres(3) As String 

' asignar valores al array 
Nombres(0) = "Ana" 

Nombres(1) = "Pedro" 

Nombres(2) = "Antonio" 

Nombres(3) = "Laura" 

' obtener valores de un array 
Dim ValorA As String 
Dim ValorB As String 

ValorA = Nombres(1) ' Pedro 
ValorB = Nombres(3) ' Laura 

1 mostrar los valores obtenidos del array 

Consolé.WriteLine("Variables: ValorA --> {o}, ValorB --> {l}", ValorA, ValorB) 
Consolé.ReadLine() 


91 



















Fundamentos de programación con Visual Basic .NET 


© Grupo EIDOS 


End Sub 


Código fuente 44 


Modificación de tamaño 

En función de si la cantidad de elementos de un array puede ser cambiada, los arrays se clasifican en 
los siguientes tipos: 

• Estáticos. Son aquellos que tienen un tamaño fijo y no se pueden modificar. 

• Dinámicos. Son aquellos cuya cantidad de elementos puede ser ampliada o reducida. En 
VB.NET todos los arrays son de tipo dinámico 

Para modificar el tamaño o número de elementos de un array, emplearemos la instrucción ReDim, 
seguida del array a modificar y el nuevo tamaño. En el Código fuente 45, modificamos el tamaño de 
un array, añadiéndole dos elementos. 


1 array con 4 elementos: de 0 a 3 
Dim Nombres(3) As String 

' asignar valores al array 
Nombres(0) = "Ana" 

Nombres(1) = "Pedro" 

Nombres(2) = "Antonio" 

Nombres(3) = "Laura" 

1 ampliamos el array con 6 elementos: de 0 a 5 
ReDim Nombres(5) 

Código ñiente 45 


ReDim no toma el array existente y modifica su número de elementos, sino que internamente crea un 
nuevo array con el número de elementos indicado, por lo que se pierden los valores del array previo. 

Para solucionar este inconveniente, debemos utilizar junto a ReDim, la palabra clave Preserve. Con 
ello, los valores existentes en el array a modificar son conservados. Ver Código fuente 46. 


1 ampliamos el array con 6 elementos: de 0 a 5 
' y los valores de los elementos que hubiera, son conservados 
ReDim Preserve Nombres(5) 

Código fuente 46 


Recorrer un array 

Para recorrer todos los elementos de un array emplearemos la estructura de control For...Next, que 
ejecuta un bloque de código un número determinado de veces, y la función del lenguaje UBound( ), 
que devuelve el número correspondiente al índice superior del array pasado como parámetro. Ver 
Código fuente 47. 
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Sub Main() 

1 crear un array y rellenarlo con valores 
Dim Nombres(3) As String 

Nombres(0) = "Ana" 

Nombres(1) = "Pedro" 

Nombres(2) = "Antonio" 

Nombres(3) = "Laura" 

1 recorrer el array y mostrar el contenido 
1 de cada uno de sus elementos 
Dim Contador As Integer 
For Contador = 0 To UBound(Nombres) 

Consolé.WriteLine("Posición del array: {o}, valor: {l}", 
Contador, Nombres(Contador)) 

Next 

Consolé.ReadLine() 

End Sub 

Código fuente 47 


La estructura For...Next será explicada con más detalle en el apartado dedicado a las estructuras de 
control del lenguaje. 


Arrays multidimensionales 

Según el modo en que se organizan los valores en sus elementos, un array se puede clasificar en los 
siguientes tipos: 

• Unidimensionales. Se trata de aquel array que tiene una única lista de valores, también 
denominada dimensión. Es el tipo de array con el que hemos trabajado hasta el momento. 

• Multidimensionales. Consiste en un array que dispone de más de una lista de valores o 
dimensión. 

Los arrays multidimensionales se representan en forma de tabla, con filas y columnas, tal y como 
muestra la Figura 64. 


Dim Articulos( 2,3) 

Articulos(0) 


Articulos(l) 


Articulos(2) 


Figura 64. Representación gráfica de un array multidimensional. 


Articulos(0,0) 

“mesa” 

Articulos(O.l) 

“silla” 

Articnlos(0,2) 

“sofá” 

Articulos(0,3) 

“estante” 

Aiticulos(l.O) 

“monitor” 

Aiticulos(Ll) 

“teclado” 

Articulos(l,2) 

“impresora” 

Articulos(lJ) 

“grabadora” 

Articulos(2,0) 

“coche” 

Articulos(2,l) 

“tren” 

Articulos(2,2) 

“barco” 

Articulos(2,3) 

“bicicleta" 
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Como acabamos de ver en el esquema de la figura, el primer número en la declaración del array: 2, 
indica la cantidad de dimensiones que tiene el array, y el segundo: 3, indica la cantidad de elementos 
que tendrá cada dimensión; ya que los arrays comienzan por cero, en este ejemplo se crea un array de 
tres dimensiones, y cada una de esas dimensiones tendrá cuatro elementos. El Código fuente 48 
muestra la forma de declarar y asignar valores a un array multidimensional de estas características. 


Dim Artículos 

(2, 

3) As String 

Artículos 

(0, 

0) 

= "mesa" 

Artículos 

(0, 

1) 

= "silla" 

Artículos 

(0, 

2) 

= "sofá" 

Artículos 

(0, 

3) 

= "estante" 

Artículos 

(1, 

0) 

= "monitor" 

Artículos 

(1, 

1) 

= "teclado" 

Artículos 

(1, 

2) 

= "impresora" 

Artículos 

(1, 

3) 

= "grabadora" 

Artículos 

(2, 

0) 

= "coche" 

Artículos 

(2, 

1) 

= "tren" 

Artículos 

(2, 

2) 

= "barco" 

Artículos 

(2, 

3) 

= "bicicleta" 


Código fuente 48 


Para recorrer los elementos de un array multidimensional utilizaremos los bucles For...Next o For 
Each...Next, que se explicarán en un tema más adelante. 

Fa diferencia entre utilizar una u otra técnica para manipular el contenido del array, reside en que con 
For...Next tenemos un mayor control de los elementos a manipular, mientras que con For Each...Next, 
al implementar internamente el proceso, irá tomando las primeras posiciones de cada una de las 
dimensiones del array, después las segundas, y así sucesivamente. 

Empleando For...Next usaremos la función UBound( ) ya comentada antes, con la particularidad de 
que al emplearla para arrays multidimensionales, deberemos pasarle en el segundo parámetro el 
número de dimensión del que vamos a extraer valores. 

Veamos un ejemplo en el Código fuente 49. 


Dim Artículos(2, 3) As String 
Dim Contadorl As Integer 
Dim Contador2 As Integer 


Artículos 

(0, 

0) 

= 

"mesa" 

Artículos 

(0, 

1) 

= 

"silla" 

Artículos 

(0, 

2) 

= 

"sofá" 

Artículos 

(0, 

3) 

= 

"estante" 

Artículos 

(1, 

0) 

= 

"monitor" 

Artículos 

(1, 

1) 

= 

"teclado" 

Artículos 

(1, 

2) 

= 

"impresora" 

Artículos 

(1, 

3) 

= 

"grabadora" 

Artículos 

(2, 

0) 

= 

"coche" 

Artículos 

(2, 

1) 

= 

"tren" 

Artículos 

(2, 

2) 

= 

"barco" 

Artículos 

(2, 

3) 

= 

"bicicleta" 


For Contadorl = 0 To UBound(Artículos, 1) 

Consolé.WriteLine("Dimensión actual del array: {0} " , Contadorl) 

For Contador2 = 0 To UBound(Artículos, 2) 

Consolé.WriteLine("-Valor del elemento: {0}", Artículos(Contadorl, 

Contador2)) 
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Next 

Next 


Código fuente 49 


Operadores 

Los operadores son aquellos elementos del lenguaje que nos permiten combinar variables, constantes, 
valores literales, instrucciones, etc., para obtener un valor numérico, lógico, de cadena, etc., como 
resultado. 

La combinación de operadores con variables, instrucciones, etc., se denomina expresión, mientras que 
a los elementos integrantes de una expresión y que no son operadores, se les denomina operandos. 

En función de la complejidad de la operación a realizar, o del tipo de operador utilizado, una expresión 
puede ser manipulada a su vez como un operando dentro de otra expresión de mayor nivel. 

Los operadores se clasifican en las categorías detalladas a continuación, según el tipo de expresión a 
construir. 


Operadores aritméticos 

Efectúan el conjunto habitual de operaciones matemáticas. 

Potenciación: A 

Eleva un número a determinada potencia. Debemos situar el número base a la izquierda de este 
operador, mientras que el exponente lo situaremos a la derecha. 

Podemos realizar varias potenciaciones al mismo tiempo y utilizar números negativos. El valor 
devuelto será de tipo Double. Ver Código fuente 50. 


Dim Resultado As Double 

Resultado = 12 A 5 1 devuelve: 248832 

Resultado = 2 A 3 A 7 1 devuelve: 2097152 

Resultado = (-4) A 2 1 devuelve: 16 

Código fuente 50 


Multiplicación: * 

Multiplica dos números. En el caso de que alguno de los operandos sea un valor nulo, se usará como 
cero. Ver Código fuente 51. 


Dim Resultado As Double 
Dim DatoSinValor As Integer 
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Dim Indefinido As Object 

Resultado = 25 * 5 1 devuelve: 125 

1 la variable DatoSinValor no ha sido 
1 asignada, por lo que contiene cero 
Resultado = 50 * DatoSinValor 1 devuelve: 0 

1 la variable Indefinido no ha sido 
1 asignada, por lo que contiene Nothing 
Resultado = 25 * Indefinido 1 devuelve: 0 

Resultado = 24.8 * 5.98 ' devuelve: 148.304 

Código ñiente 51 


División real: / 

Divide dos números, devolviendo un resultado con precisión decimal. Ver Código fuente 52. 


Dim Resultado As Double 

Resultado =50/3 ' devuelve: 16.6666666666667 

Resultado = 250 / 4 1 devuelve: 62.5 

Código fuente 52 


Por norma general, el valor devuelto será de tipo Double,. No obstante, si uno de los operandos es de 
tipo Single, el resultado será de tipo Single. De igual manera, si los dos operandos son del tipo de dato 
Decimal, el resultado también será un valor Decimal. 


División entera: \ 

Divide dos números, devolviendo como resultado un valor numérico entero. Ver Código fuente 53. 


Dim Resultado As Integer 

Resultado = 50 \ 3 ' devuelve: 16 

Resultado = 250 \ 4 1 devuelve: 62 

Código fuente 53 


Resto: Mod 

Divide dos números y devuelve el módulo o resto de la división. Ver Código fuente 54. 


Dim Resultado As Double 

Resultado = 10 Mod 3 1 devuelve: 1 
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Resultado = 

100 Mod 27 

1 devuelve: 

19 

Resultado = 

38 Mod 4 

1 devuelve: 

2 


Código fuente 54 


Suma: + 

En función del tipo de dato de los operandos, este operador realiza una suma de números o una 
concatenación de cadenas de caracteres. Puede producirse un error dependiendo del tipo de dato del 
operando y la configuración de Option Strict. El Código fuente 55 muestra algunos ejemplos de suma 
y concatenación, con la instrucción Option Strict Off. 


Sub Main() 

Dim Resultado As Double 

Dim Cadena As String 

Dim Valor As Integer 

Dim Nombre As String 

Dim CadenaResulta As String 

1 suma de números 

Resultado =12+7 ' devuelve: 19 

Resultado = 450 + 130 1 devuelve: 580 


' concatenación de cadenas 

Cadena = "hola " + "amigos" ' devuelve: "hola amigos" 

' suma de variables 
Cadena = "15" 

Valor = 20 

CadenaResulta = Cadena + Valor 1 devuelve: "35" 


' operaciones incorrectas 
Valor = 25 
Nombre = "Alfredo" 


CadenaResulta = Valor + Nombre ' error 
Resultado = Valor + Nombre ' error 
End Sub 


Código fuente 55 


Si cambiamos a continuación la configuración a Option Strict On, la siguiente operación que antes se 
ejecutaba, ahora provocará un error. Ver Código fuente 56. 


1 suma de variables 
Cadena = "15" 

Valor = 20 

CadenaResulta = Cadena + Valor ' error 

Código ñiente 56 


Para solucionar el problema debemos convertir explícitamente todos los operandos al mismo tipo de 
datos. Observe el lector que en esta situación, no se realiza una suma, sino una concatenación. Ver 
Código fuente 57. 
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1 suma de variables 
Cadena = "15" 

Valor = 20 

CadenaResulta = Cadena + CStr(Valor) ' devuelve: "1520" 

Código fuente 57 


A pesar de que el operador + permite concatenar tipos String, se recomienda el uso del operador 
específico de concatenación &, que veremos más adelante. 


Resta: - 

Efectúa una resta entre dos números, o cambia el signo de un número (de positivo a negativo, y 
viceversa). Ver Código fuente 58. 


Sub Main() 

Dim Resultado As Integer 
Dim Valor As Integer 
Dim OtroValor As Integer 

' resta de números 
Resultado = 100 - 75 

1 cambiar a signo negativo un número 
Valor = -50 

1 volver a cambiar el signo de un número, 

1 estaba en negativo, con lo que vuelve 
' a positivo 
OtroValor = -Valor 
End Sub 

Código ñiente 58 


Operadores de concatenación: &, + 

Estos operadores permiten unir dos o más cadenas de caracteres para formar una única cadena. Se 
recomienda el uso de & para facilitar la legibilidad del código y evitar ambigüedades. El uso de + 
puede dar lugar a equívoco, ya que en muchas situaciones no sabremos a primera vista si se está 
realizando una suma o concatenación. Ver Código fuente 59. 


Sub Main() 

Dim CadResulta As String 

Dim Nombre As String 



CadResulta = "esto es " & "una prueba" 

Consolé.WriteLine("Variable CadResulta: 

Nombre = "Juan" 

CadResulta = Nombre & " Almendro" 

{0}", 

CadResulta) 

Consolé.WriteLine("Variable CadResulta: 
Consolé.ReadLine() 

{0}", 

CadResulta) 
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End Sub 


Código fuente 59 


Operadores abreviados de asignación 

Estos operadores simplifican la escritura de expresiones, facilitando la creación de nuestro código. El 
resultado empleando operadores abreviados en una expresión, es el mismo que utilizando la sintaxis 
normal, pero con un pequeño ahorro en la escritura de código. Cuando pruebe el lector estos ejemplos, 
ejecute por separado la sintaxis normal, y después la abreviada, para evitar resultados inesperados. 


Potencia: A = 

Para elevar un número a una potencia podemos utilizar la sintaxis normal o abreviada. Ver Código 
fuente 60. 


Dim Valor As Integer 
Dim Resultado As Double 

Valor = 3 
Resultado = 2 

1 sintaxis normal 

Resultado = Resultado A Valor ' devuelve: 8 

1 sintaxis abreviada 

Resultado x = Valor ' devuelve: 8 


Código ñiente 60 


Multiplicación: *= 

Para multiplicar dos números podemos utilizar la sintaxis normal o abreviada. Ver Código fuente 61. 


Dim Valor As Integer 
Dim Resultado As Double 

Valor = 7 
Resultado = 12 

1 sintaxis normal 

Resultado = Resultado * Valor ' devuelve: 84 

1 sintaxis abreviada 

Resultado *= Valor 1 devuelve: 84 

Código fuente 61 
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División real: /= 

Para dividir dos números, y obtener un resultado con precisión decimal, podemos utilizar la sintaxis 
normal o abreviada. Ver Código fuente 62. 


Dim Valor As Integer 
Dim Resultado As Double 

Valor = 5 
Resultado = 182 

1 sintaxis normal 

Resultado = Resultado / Valor ' devuelve: 36.4 
1 sintaxis abreviada 

Resultado /= Valor 1 devuelve: 36.4 

Código fuente 62 


División entera: \= 

Para dividir dos números, con un resultado entero, podemos utilizar la sintaxis normal o abreviada. 
Ver Código fuente 63. 


Dim Valor As Integer 
Dim Resultado As Double 

Valor = 5 
Resultado = 182 

1 sintaxis normal 

Resultado = Resultado \ Valor 1 devuelve: 36 

1 sintaxis abreviada 

Resultado \= Valor 1 devuelve: 36 

Código ñiente 63 


Suma: += 

Podemos sumar números, o concatenar cadenas utilizando la sintaxis normal o abreviada. Ver Código 
fuente 64. 


Dim Valor As Integer 
Dim Resultado As Double 
Dim CadenaA As String 
Dim CadenaB As String 

1 con valores numéricos 
Valor = 69 
Resultado = 200 
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1 sintaxis normal 

Resultado = Resultado + Valor 1 devuelve: 269 
1 sintaxis abreviada 

Resultado += Valor 1 devuelve: 269 

1 con cadenas de caracteres 
CadenaA = " varios números" 

CadenaB = "589" 

CadenaB += CadenaA ' devuelve: "589 varios números" 

Código ñiente 64 


Resta: -= 

Podemos restar números utilizando la sintaxis normal o abreviada. Ver Código fuente 65. 


Dim Valor As Integer 

Dim Resultado As Double 


Valor = 69 

Resultado = 200 


1 sintaxis normal 

Resultado = Resultado - Valor 

' devuelve: 131 

1 sintaxis abreviada 

Resultado -= Valor 1 devuelve: 

131 


Código ñiente 65 


Concatenación: &= 

Para concatenar dos cadenas, podemos emplear la sintaxis normal o abreviada. Ver Código fuente 66. 


Dim PrimeraCad As String 
Dim SegundaCad As String 

PrimeraCad = "Aquí va " 

SegundaCad = "una prueba" 

1 sintaxis normal 

PrimeraCad = PrimeraCad & SegundaCad 1 devuelve: "Aquí va una prueba" 
1 sintaxis abreviada 

PrimeraCad &= SegundaCad ' devuelve: "Aquí va una prueba" 

Código fuente 66 
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Operadores de comparación 

Estos operadores permiten comprobar el nivel de igualdad o diferencia existente entre los operandos 
de una expresión. El resultado obtenido será un valor lógico, True (Verdadero) o False (Falso). La 
Tabla 4 muestra la lista de los operadores disponibles de este tipo. 


Operador 

El resultado es Verdadero cuando 

El resultado es Falso cuando 

< 

Menor que 

ExpresiónA < ExpresiónB 

ExpresiónA >= ExpresiónB 

<= 

Menor o igual que 

ExpresiónA <= ExpresiónB 

ExpresiónA > ExpresiónB 

> 

Mayor que 

ExpresiónA > ExpresiónB 

ExpresiónA <= ExpresiónB 

>= 

Mayor o igual que 

ExpresiónA >= ExpresiónB 

ExpresiónA < ExpresiónB 

— 

Igual a 

ExpresiónA = ExpresiónB 

ExpresiónA <> ExpresiónB 

o 

Distinto de 

ExpresiónA <> ExpresiónB 

ExpresiónA = ExpresiónB 


Tabla 4. Operadores de comparación. 


El Código fuente 67 nos muestra algunas expresiones de comparación utilizando números. 


Dim Resultado As Boolean 

Resultado = 10 < 45 1 

devuelve: 

True 

Resultado = 

7 <= 7 1 

devuelve: 

True 

Resultado = 

25 > 50 1 

devuelve: 

False 

Resultado = 

80 >= 100 1 

devuelve: 

False 

Resultado = 

120 = 220 ' 

devuelve: 

False 

Resultado = 

5 o 58 1 

devuelve: 

True 


Código fuente 67 


Comparación de cadenas 

Podemos utilizar los operadores de comparación antes descritos para comparar también cadenas de 
caracteres. La instrucción Option Compare, junto a sus modificadores Binary/Text, nos permite definir 
el modo en que se realizarán las comparaciones entre expresiones que contengan cadenas. 

• Option Compare Binary. Las comparaciones se realizan en base a los valores binarios 
internos de los caracteres. Esta es la opción por defecto. 

• Option Compare Text. Las comparaciones se realizan en base a los valores textuales de los 
caracteres. 

Podemos configurar Option Compare a nivel de proyecto y de fichero de código. En el caso de 
configurar a nivel de proyecto, deberemos abrir la ventana de propiedades del proyecto, y en su 
apartado Generar, establecer el valor correspondiente en la lista desplegable. Ver Figura 65. 
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Figura 65. Configuración de Option Compare. 


Si configuramos a nivel de fichero de código, escribiremos esta instrucción en la cabecera del fichero 
con el modificador oportuno. Consulte el lector el apartado sobre declaración obligatoria de variables, 
para un mayor detalle sobre el acceso a esta ventana de propiedades del proyecto. 

En el Código fuente 68 tenemos un ejemplo de comparación de cadenas utilizando Option Compare 
Binary. 


Option Compare Binary 
Module Modulel 
Sub Main() 

Dim Resultado As Boolean 


Resultado = 

"A" 

= "a" 

1 devuelve: 

False 

Resultado = 


< " Z " 

' devuelve: 

True 

Resultado = 

»M" 

> "m" 

1 devuelve: 

False 

Resultado = 

n p ii 

o "f" 

1 devuelve: 

True 


End Sub 
End Module 

Código fuente 68 


El motivo de que la comparación “A” con “a” devuelva falso, o de que “M” no sea mayor que “m” se 
debe a que lo que se comparan son los valores binarios, o códigos que sirven para representar a cada 
carácter. Por ejemplo, el código de “M” es 77, mientras que el de “m” es 109, por lo que al ser este 
último mayor, la comparación realizada en el fuente de ejemplo devuelve False. 
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Si a continuación, cambiamos la configuración de Option Compare a Text y realizamos las mismas 
comparaciones, en algunos casos obtendremos resultados diferentes. Ver Código fuente 69. 


Option Compare Text 
Module Modulel 
Sub Main() 

Dim Resultado As Boolean 


Resultado = 

"A" 

= "a" 

1 devuelve: 

True 

Resultado = 

»M" 

< " Z" 

1 devuelve: 

True 

Resultado = 


> "m" 

' devuelve: 

False 

Resultado = 

n p ii 

o "f" 

' devuelve: 

False 


End Sub 
End Module 

Código ñiente 69 


En esta ocasión “A” y “a” si son iguales, debido a que se comparan sus valores como texto y no como 
los códigos internos utilizados para representar los caracteres. De igual forma, se devuelve falso en la 
expresión que comprueba si “F” y “f’ son distintos, ya que bajo esta configuración, ambos caracteres 
se consideran iguales. 


La función Asc() 

Cuando realizamos comparaciones entre cadenas, basadas en los valores binarios de los caracteres, es 
útil en ocasiones conocer el código de dichos caracteres. Para averiguar cuál es el código 
correspondiente a un determinado carácter, el lenguaje nos proporciona la función Asc(). 

Esta función recibe como parámetro una cadena, y devuelve un valor numérico de tipo Integer, con el 
código correspondiente al primer carácter de la cadena. El Código fuente 70 nos muestra algunos 
ejemplos. 


Dim CodigoCar As 

CodigoCar = Ase( 

Integer 

"A") 1 

devuelve: 

65 

CodigoCar 

= Ase ( 

"a") 1 

devuelve: 

97 

CodigoCar 

= Ase ( 

"M") 1 

devuelve: 

77 

CodigoCar 

= Ase ( 

npii) i 

devuelve: 

70 

CodigoCar 

= Ase ( 

" f " ) 1 

devuelve: 

102 

CodigoCar 

= Ase ( 

"hola") ' 

devuelve: 

104 


Código fuente 70 


La función Chr() 

Si nos encontramos en la situación inversa a la descrita en el apartado anterior, es decir, tenemos el 
código de un carácter y queremos saber a cuál corresponde, la función Chr() recibe un número como 
parámetro y devuelve el carácter al que pertenece como un dato de tipo Char, aunque también 
podemos asignar el resultado a una variable String. Veamos unos ejemplos en el Código fuente 71. 
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Dim MiCaracter As Char 
Dim MiCadena As String 



MiCaracter = Chr(65) 

' devuelve: 

"A" 

MiCaracter = Chr(70) 

1 devuelve: 

ii p ii 

MiCadena = Chr(77) 

1 devuelve: 

"M" 

MiCadena = Chr(102) 

' devuelve: 

II £ II 


Código fuente 71 


Comparación de cadenas en base a un patrón. El operador Like 

El operador Like permite realizar una comparación entre dos cadenas, en base a un patrón establecido 
en una de ellas. El formato de uso se muestra en el Código fuente 72. 


Resultado = Cadena Like Patrón 


Código fuente 72 


• Resultado. Valor lógico con el resultado de la comparación. Verdadero indica que hay una 
coincidencia de Cadena con Patrón. Falso indica que no se ha producido coincidencia de 
Cadena con Patrón. 

• Cadena. Cadena de caracteres que se compara con el patrón de coincidencia. 

• Patrón. Cadena de caracteres en donde se especifican los caracteres especiales que sirven de 
patrón de coincidencia respecto al valor de Cadena. La Tabla 5 muestra los caracteres y 
convenciones de uso establecidas por el lenguaje para el uso de patrones de comparación. 


Carácter del patrón 

Coincidencia en la cadena a buscar 

? 

Cualquier único carácter 

* 

Varios caracteres o ninguno 

# 

Cualquier único número 

[ListaCaracteres] 

Cualquier único carácter que se encuentre dentro 
de la lista. 

[! ListaC aracteres] 

Cualquier único carácter que no se encuentre 
dentro de la lista 


Tabla 5. Caracteres patrón del operador Like. 


Debemos tener en cuenta que los resultados obtenidos en expresiones que utilicen este operador 
estarán condicionadas por la configuración establecida mediante Option Compare. Revise el lector el 
apartado sobre comparación de cadenas en donde se describe esta instrucción. 
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Cuando utilicemos los corchetes para establecer una lista de caracteres a comparar, debemos emplear 
el guión (-) como separador de rangos. Si necesitamos que alguno de los caracteres patrón estén entre 
los que vamos a buscar, debemos encerrarlo entre corchetes. El Código fuente 73 muestra algunos 
ejemplos de uso de este operador. 


1 ejemplos con el operador Like 
Dim Resultado As Boolean 


1 patrón ? 

1 devuelve True - El patrón coincide con la cadena 
1 al hacer la sustitución de un carácter 
Resultado = "HOLA" Like "HO?A" 

1 devuelve True - El patrón coincide con la cadena 
1 al hacer la sustitución de dos caracteres 
Resultado = "MONITOR" Like "MO?ITO?" 

1 devuelve False - El patrón no coincide con la cadena 
1 al hacer la sustitución de un carácter 
Resultado = "ROEDOR" Like "R?DEO" 


1 patrón * 

1 devuelve True - El patrón coincide con la cadena 
1 al hacer la sustitución de varios caracteres con 
' espacio en blanco a ambos lados 

Resultado = "La gran llanura" Like "La * llanura" 

1 devuelve True - El patrón coincide con la cadena 
1 al hacer la sustitución de dos grupos de caracteres 
Resultado = "La gran llanura" Like "La*llanu*" 

1 devuelve False - El patrón no coincide con la cadena 
1 al hacer la sustitución de un grupo de caracteres , 

1 puesto que en el patrón falta una palabra que sí 
1 se halla en la cadena 

Resultado = "La gran llanura" Like "La llanu*" 


1 patrón # 

1 devuelve True - El patrón coincide con la cadena 
1 al hacer la sustitución de dos números 

Resultado = "Ha ganado 128 millones" Like "Ha ganado ##8 millones" 

1 devuelve False - El patrón no coincide con la cadena, 

1 ya que en el patrón se especifican más dígitos de los 
1 existentes en la cadena 

Resultado = "Ha ganado 128 millones" Like "Ha ganado ###8 millones" 

1 devuelve False - El patrón no coincide con la cadena, 

1 ya que en el patrón se utilizan caracteres de sustitución 
1 de dígitos incorrectamente 

Resultado = "Ha ganado 128 millones" Like "Ha ganado 128 ##llones" 


1 patrón [Lista] 

1 devuelve True - El carácter de la cadena se encuentra 
1 dentro del rango en la lista del patrón 
Resultado = "H" Like "[A-M]" 
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1 devuelve False - El carácter de la cadena no se encuentra 
1 dentro del rango en la lista del patrón 
Resultado = "h" Like "[A-M]" 

1 devuelve True - El carácter de la cadena se encuentra 
1 dentro del rango en la lista del patrón 
Resultado = "h" Like "[a-m]" 

1 devuelve True - El carácter de la cadena no se encuentra 
1 dentro del rango en la lista del patrón 
Resultado = "D" Like "[!P-W]" 

1 devuelve False - El carácter de la cadena se encuentra 
1 dentro del rango en la lista del patrón 
Resultado = "R" Like "[!P-W]" 


1 combinación de varios caracteres patrón 

' devuelve True - Todas las sustituciones del patrón son correctas 
Resultado = "Faltan 48 horas para llegar a destino" Like _ 

"Fal* ## * para ll[a-g]gar ? des*" 

1 devuelve False - Las sustituciones de caracteres númericos son incorrectas 
Resultado = "Faltan 48 horas para llegar a destino" Like _ 

"Fal## * para ll[a-g]gar ? des*" 


' comparación utilizando caracteres patrón 
1 dentro de la expresión 

' devuelve True - El carácter de cierre de interrogación 

1 se sustituye correctamente al encerrarse entre corchetes 

Resultado = "¿Ha llegado Ana?, bienvenida" Like "¿Ha*Ana[?], bienvenida" 


1 comparación de dos cadenas vacías 

1 devuelve True 
Resultado = "" Like "" 

Código fuente 73 


Comparación de objetos. El operador Is 

El operador Is permite comparar si dos variables que contienen objetos apuntan o no a la misma 
referencia o instancia del objeto. Para conceptos básicos sobre objetos, consulte el lector los temas 
dedicados a la programación orientada a objetos en este mismo texto. 

El Código fuente 74 muestra el formato de uso para este operador. 


Resultado = ObjetoA Is ObjetoB 


Código fuente 74 
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Para probar este operador podemos crear una aplicación de tipo Windows y añadir un módulo en el 
que escribiríamos un procedimiento Main(). Después de configurar el proyecto para que se inicie por 
este procedimiento, escribiremos las líneas que se muestran en el Código fuente 75. 


Public Sub Main() 

' declarar dos variables que 
1 contendrán objetos de la clase Form 
Dim VentanaUno As Form 
Dim VentanaDos As Form 

Dim Resultado As Boolean 

1 crear dos instancias de la clase Form 
' asignando cada uno de los objetos 
1 a las variables 
VentanaUno = New Form() 

VentanaDos = New Form() 

1 la expresión de comparación con Is devuelve 
1 False ya que las variables tienen referencias 
' a objetos diferentes, aunque sean de la misma clase 
Resultado = VentanaUno Is VentanaDos 
End Sub 

Código fuente 75 


Como hemos podido comprobar, al comparar las variables del anterior fuente con Is, el resultado es 
False, ya que ambos objetos son instancias diferentes, aunque pertenezcan a la misma clase: Form. La 
creación de formularios será abordada en un tema posterior. 

Si por el contrario, creamos una única instancia de un objeto y la asignamos a las dos variables, el 
resultado será muy diferente. En este caso el operador Is devolverá True ya que ambas variables 
contienen el mismo objeto. Ver Código fuente 76. 


Public Sub Main() 

1 declarar dos variables que 
' contendrán objetos de la clase Form 
Dim VentanaUno As Form 
Dim VentanaDos As Form 

Dim Resultado As Boolean 

1 crear una única instancia de la clase Form, 

1 el objeto resultante se asigna a una variable 
VentanaUno = New Form() 

' después el mismo objeto que ya está 
1 en una variable se asigna a la otra variable 
VentanaDos = VentanaUno 

1 ambas variables contienen una referencia 
1 al mismo objeto, por lo que la expresión 
' de comparación Is devuelve True 
Resultado = VentanaUno Is VentanaDos 
End Sub 

Código fuente 76 
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Operadores lógicos y a nivel de bit 

Los operadores lógicos devuelven un valor de tipo Boolean (True o False), en base a una condición 
establecida entre los operandos de la expresión. En expresiones que impliquen el uso de operadores 
lógicos, es habitual que los operandos sean a su vez expresiones, como veremos en los próximos 
ejemplos con este tipo de operadores. 

El Código fuente 77 muestra el formato de uso para estos operadores. 


Resultado = ExpresiónA OperadorLogico ExpresiónB 

Código fuente 77 


Cuando los operandos que forman parte de la expresión son numéricos, la evaluación de la expresión 
se realiza a nivel de bit, es decir, comparando los bits de las posiciones equivalentes de ambos 
números y obteniendo igualmente, un valor numérico como resultado. 


And 

A nivel lógico, este operador realiza una conjunción entre dos expresiones. La Tabla 6 muestra los 
diferentes resultados obtenidos con el uso de este operador en función de los valores que tengan sus 
expresiones. 


Cuando la ExpresiónA 
devuelve 

Y la ExpresiónB 
devuelve 

El resultado es 

True 

True 

True 

True 

False 

False 

False 

True 

False 

False 

False 

False 


Tabla 6. Tabla de valores lógicos del operador And. 


El Código fuente 78 muestra algunos ejemplos a nivel lógico con este operador. 


Dim Resultado As 

Boolean 




Resultado = 58 > 

20 And "H 

II _ IIJJII 

' devuelve: 

True 

Resultado = "H" 

= "H" And 

720 < 150 

' devuelve: 

False 

Resultado = 8 o 

8 And 62 

< 115 

' devuelve: 

False 

Resultado = "W" 

> "b" And 

"Q" = "R" 

' devuelve: 

False 


Código fuente 78 


109 







Fundamentos de programación con Visual Basic .NET 


© Grupo EIDOS 


A nivel de bit, And realiza las operaciones mostradas en la Tabla 7. 


Cuando el bit de 
ExpresiónA es 

Y el bit de 
ExpresiónB es 

El valor del bit 
resultante es 

0 

0 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 


Tabla 7. Tabla de valores a nivel de bit del operador And. 


El Código fuente 79 muestra algunos ejemplos a nivel de bit con este operador. 


Dim Resultado As Integer 

Resultado = 15 And 8 1 devuelve: 8 

Resultado = 6 And 45 1 devuelve: 4 

Código fuente 79 


Uso de paréntesis para mejorar la legibilidad de expresiones 

Los ejemplos a nivel lógico del apartado anterior, si bien se ejecutan correctamente, pueden ser un 
tanto confusos a la hora de leer, ya que al tratarse de una operación lógica, cada operando es a su vez 
una expresión. 

Para facilitar la lectura y compresión en expresiones sobre todo lógicas, podemos encerrar cada 
operando-expresión entre paréntesis. Ver Código fuente 80. 


Dim Resultado As Boolean 

Resultado = (58 > 20) And ("H" = "H") 

' devuelve: 

True 

Resultado = 

("H" = "H") And (720 < 150) 

' devuelve: 

False 

Resultado = 

(8 o 8) And (62 < 115) 

1 devuelve: 

False 

Resultado = 

("W" > "b") And ("Q" = "R") 

1 devuelve: 

False 


Código fuente 80 


Como puede comprobar el lector al ejecutar, el resultado es el mismo que si no utilizamos paréntesis, 
pero la claridad al leer estas líneas de código es mucho mayor. 
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Not 

A nivel lógico, este operador realiza una negación entre dos expresiones. Su formato es ligeramente 
distinto del resto de operadores lógicos, como vemos en el Código fuente 81. 


Resultado = Not Expresión 


Código fuente 81 


La Tabla 8 muestra los resultados obtenidos con el uso de este operador en función de su expresión. 


Cuando la Expresión 
devuelve 

El resultado es 

True 

False 

False 

True 


Tabla 8. Tabla de valores lógicos del operador Not. 


El Código fuente 82 muestra algunos ejemplos a nivel lógico con este operador. 


Dim Operación As Boolean 

Dim Resultado As Boolean 



Operación = 100 > 60 

Resultado = Not Operación 

1 devuelve: 

False 

Resultado = Not (28 > 50) 

1 devuelve: 

True 


Código ñiente 82 

A nivel de bit, Not realiza las operaciones mostradas en la Tabla 9. 


Cuando el bit de la 
Expresión devuelve 

El resultado es 

0 

1 

1 

0 


Tabla 9. Tabla de valores a nivel de bit del operador Not. 


El Código fuente 83 muestra algunos ejemplos a nivel de bit con este operador. 
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Dim Resultado As Integer 

Resultado = Not 16 ' devuelve: -17 
Resultado = Not 4 1 devuelve: -5 

Código ñiente 83 


Or 

A nivel lógico, este operador realiza una disyunción entre dos expresiones. La Tabla 10 muestra los 
diferentes resultados obtenidos con el uso de este operador en función de los valores que tengan sus 
expresiones. 


Cuando la ExpresiónA 
devuelve 

Y la ExpresiónB 
devuelve 

El resultado es 

True 

True 

True 

True 

False 

True 

False 

True 

True 

False 

False 

False 


Tabla 10. Tabla de valores lógicos del operador Or. 


El Código fuente 84 muestra algunos ejemplos a nivel lógico con este operador. 


Dim Resultado As Boolean 

Resultado = (58 > 20) Or ("H" = "H") 

' devuelve: 

True 

Resultado = 

("H" = "H") Or (720 < 150) 

1 devuelve: 

True 

Resultado = 

(8 o 8) Or (62 < 115) 

1 devuelve: 

True 

Resultado = 

("W" > "b") Or ("Q" = "R") 

' devuelve: 

False 


Código fuente 84 


A nivel de bit, Or realiza las operaciones mostradas en la Tabla 11. 


Cuando el bit de 
ExpresiónA es 

Y el bit de 
ExpresiónB es 

El valor del bit 
resultante es 

0 

0 

0 

0 

1 

1 

1 

0 

1 
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1 1 1 


Tabla 11. Tabla de valores a nivel de bit del operador Or. 


El Código fuente 85 muestra algunos ejemplos a nivel de bit con este operador. 


Dim Resultado As Integer 



Resultado = 15 Or 8 ' 

devuelve: 

15 

Resultado = 6 Or 45 ' 

devuelve: 

47 


Código fuente 85 


Xor 

A nivel lógico, este operador realiza una exclusión entre dos expresiones. La Tabla 12 muestra los 
diferentes resultados obtenidos con el uso de este operador en función de los valores que tengan sus 
expresiones. 


Cuando la ExpresiónA 
devuelve 

Y la ExpresiónB 
devuelve 

El resultado es 

True 

True 

False 

True 

False 

True 

False 

True 

True 

False 

False 

False 


Tabla 12. Tabla de valores lógicos del operador Xor. 


El Código fuente 86 muestra algunos ejemplos a nivel lógico con este operador. 


Dim Resultado As Boolean 

Resultado = (58 > 20) Xor ("H" = "H") ' devuelve: False 

Resultado = ("H" = "H") Xor (720 < 150) ' devuelve: True 

Resultado = (8 o 8) Xor (62 < 115) ' devuelve: True 

Resultado = ("W" > "b") Xor ("Q" = "R") ' devuelve: False 

Código fuente 86 


A nivel de bit, Xor realiza las operaciones mostradas en la Tabla 13. 
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Cuando el bit de 
ExpresiónA es 

Y el bit de 
ExpresiónB es 

El valor del bit 
resultante es 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 


Tabla 13. Tabla de valores a nivel de bit del operador Or. 


El Código fuente 87 muestra algunos ejemplos a nivel de bit con este operador. 


Dim Resultado As Integer 

Resultado = 15 Xor 8 1 devuelve: 7 

Resultado = 6 Xor 45 1 devuelve: 43 

Código fuente 87 


AndAlso 

Este operador realiza una conjunción lógica de tipo cortocircuito entre dos expresiones. En este tipo de 
operación, en cuanto la primera expresión devuelva falso como resultado, el resto no será evaluado 
devolviendo falso como resultado final. 

La Tabla 14 muestra los diferentes resultados obtenidos con el uso de este operador en función de los 
valores que tengan sus expresiones. 


Cuando la ExpresiónA 
devuelve 

Y la ExpresiónB 
devuelve 

El resultado es 

True 

True 

True 

True 

False 

False 

False 

No se evalúa 

False 


Tabla 14. Tabla de valores lógicos del operador AndAlso. 


El Código fuente 88 muestra algunos ejemplos con este operador. 


Dim Resultado As Boolean 

Resultado = (58 > 20) AndAlso ("H" = "H") 1 devuelve: True 

Resultado = ("H" = "H") AndAlso (720 < 150) 1 devuelve: False 
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Resultado = (8 o 8) AndAlso (62 < 115) ' devuelve: False 

Código fuente 88 


OrElse 

Este operador realiza una disyunción lógica de tipo cortocircuito entre dos expresiones. En este tipo de 
operación, en cuanto la primera expresión devuelva verdadero como resultado, el resto no será 
evaluado devolviendo verdadero como resultado final. 

La muestra los diferentes resultados obtenidos con el uso de este operador en función de los valores 
que tengan sus expresiones. 


Cuando la ExpresiónA 
devuelve 

Y la ExpresiónB 
devuelve 

El resultado es 

True 

No se evalúa 

True 

False 

True 

True 

False 

False 

False 


Tabla 15. Tabla de valores lógicos del operador OrElse. 


El Código fuente 89 muestra algunos ejemplos con este operador. 


Dim Resultado As Boolean 


Resultado 

Resultado 

Resultado 


("H" = "H") OrElse (720 < 150) 
(8 o 8) OrElse (62 < 115) 

("W" > "b") OrElse ("Q" = "R") 


1 devuelve: True 
' devuelve: True 
' devuelve: False 


Código fuente 89 


Prioridad de operadores 

Dentro de una línea de código que contenga varias operaciones, estas se resolverán en un orden 
predeterminado conocido como prioridad de operadores. Dicha prioridad se aplica tanto entre los 
operadores de un mismo grupo como entre los distintos grupos de operadores. 


Prioridad entre operadores del mismo grupo. 

Los operadores aritméticos se ajustan a la prioridad indicada en la Tabla 16. 
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Prioridad de operadores aritméticos 


Potenciación ( A ) 


Negación (-) 


Multiplicación y división real ( * , /) 


División entera ( \ ) 


Resto de división ( Mod ) 


Suma y resta ( + , -) 


Tabla 16. Prioridad de operadores aritméticos. 


El operador de mayor prioridad es el de potenciación, los de menor son la suma y resta. En el caso de 
operadores con idéntica prioridad como multiplicación y división, se resolverán en el orden de 
aparición, es decir, de izquierda a derecha. Veamos un ejemplo en el Código fuente 90 


Dim Resultado As Long 

Resultado =5+8 A 2*4 ' devuelve: 261 

Código fuente 90 


Los operadores de comparación tienen todos la misma prioridad, resolviéndose en el orden de 
aparición dentro de la expresión. 

Los operadores lógicos se ajustan a la prioridad indicada en la Tabla 17. 


Prioridad de operadores lógicos 


Negación (Not) 


Conjunción (And, AndAlso) 


Disyunción (Or, OrElse, Xor) 


Tabla 17. Prioridad de operadores lógicos. 

En el ejemplo del Código fuente 91, el resultado final de la operación es True debido a que el operador 
Not cambia la segunda expresión a True, resultando las dos expresiones de la operación True. 


Dim Resultado As Boolean 

Resultado = 10 < 70 And Not 30 = 20 1 devuelve: True 

Código fuente 91 
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Prioridad entre operadores de distintos grupos. 

Cuando una expresión contenga operadores de distintos grupos, estos se resolverán en el orden 
marcado por la Tabla 18. 


Prioridad entre operadores de 
distintos grupos 


Aritméticos 


Concatenación 


Comparación 


Lógicos 


Tabla 18. Prioridad entre grupos de operadores. 


El Código fuente 92 muestra un ejemplo de expresión en el que intervienen operadores de diferentes 
tipos. 


Dim Resultado As Boolean 

Resultado = 30 + 5 * 5 > 100 And 52 > 10 1 devuelve: False 

Código fuente 92 


Uso de paréntesis para alterar la prioridad de operadores 

Podemos alterar el orden natural de prioridades entre operadores utilizando los paréntesis, encerrando 
entre ellos los elementos que queramos sean resueltos en primer lugar dentro de una expresión. De 
esta forma, se resolverán en primer lugar las operaciones que se encuentren en los paréntesis más 
interiores, finalizando por las de los paréntesis exteriores. Es importante tener en cuenta, que dentro de 
los paréntesis se seguirá manteniendo la prioridad explicada anteriormente. 

El Código fuente 93 en condiciones normales, devolvería False como resultado. Sin embargo, gracias 
al uso de paréntesis, cambiamos la prioridad predeterminada, obteniendo finalmente True. 


Dim Resultado As Boolean 

Resultado = ((30 +5) * 5 > 100) And (52 > 200 / (2+5)) ' devuelve: True 

Código fuente 93 
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División de una línea de código 

Si tenemos en nuestro programa líneas de código muy largas, que nos obliguen a desplazamos hacia 
una lateral de la ventana del editor de código para poder leerlas, podemos dividir ese tipo de línea 
lógica de código en varias líneas físicas, situando el carácter de guión bajo ( _ ) en el punto de la línea 
de código en donde queremos continuar, teniendo en cuenta que siempre debe haber un espacio en 
blanco antes y después de este carácter, para que la división de la línea sea efectiva. 

En el Código fuente 94 podemos ver dos líneas exactamente iguales, la primera se muestra en una sola 
línea física, mientras que la segunda ha sido fraccionada en tres líneas, aunque a efectos de 
compilación el resultado es el mismo. 


Dim Resultado As Boolean 
1 una sola línea lógica y física 

Resultado = ((30+5) * 5 > 100) And (52 > 200 / (2+5)) 

1 varias líneas físicas, aunque internamente 
1 el compilador reconoce una sola linea lógica 
Resultado = ((30 +5) * 5 > 100) And _ 

(52 > 200 / 

(2 + 5) ) 


Código fuente 94 
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Escritura de varias sentencias en la misma línea 

Aquí tenemos el caso opuesto al anterior apartado. El lenguaje nos permite escribir en una misma línea 
física, varias sentencias separadas por el carácter de dos puntos ( : ), que en condiciones normales se 
escriben en líneas separadas. Ver Código fuente 95. 


Sub Main() 

Dim Valor As Integer, Nombre As String, Resultado As Boolean 

1 en la siguiente línea hay tres sentencias que 
1 habitualmente se escriben en líneas separadas 
Valor = 50 : Nombre = "Julio" : Resultado = 50 o 275 

Consolé.WriteLine("Contenido de variables: { 0 } - {1} - {2}", 
Valor, Nombre, Resultado) 

Consolé.ReadLine() 

End Sub 

Código ñiente 95 


Si bien en algunas situaciones puede ser útil, esta característica hace que nuestro código sea más 
complicado de leer, restándole claridad a nuestra aplicación, por lo que recomendamos no utilizarla 
salvo en casos muy necesarios. 


Procedimientos 

Todo el código ejecutable de una aplicación se ubica en rutinas de código o procedimientos. Un 
procedimiento es un elemento del lenguaje compuesto por un conjunto de líneas de código, a las que 
se denomina cuerpo del procedimiento. Su comienzo y fin lo establecemos mediante ciertas palabras 
reservadas del lenguaje, asociándole un identificador, que nos servirá para reconocerlo entre el resto 
de procedimientos creados en el programa. Podemos enviarle también información adicional en forma 
de parámetros, con lo que el resultado de la ejecución de un procedimiento variará según los valores 
que pasemos en cada llamada. 

En VB.NET disponemos de los siguientes tipos de procedimientos: 

• Sub. Procedimiento que realiza un conjunto de operaciones pero no devuelve valor al punto 
de llamada. A lo largo del texto también nos referiremos a las rutinas de tipo Sub con el 
nombre genérico de procedimiento. 

• Function. Procedimiento que realiza un conjunto de operaciones, y devuelve un valor 
denominado valor de retomo al punto de código que realizó la llamada. A lo largo del texto 
también nos referiremos a las rutinas de tipo Function con el nombre genérico de función. 

• Property. Procedimiento que se utiliza para labores de acceso y asignación de valores a las 
propiedades de un objeto. Serán tratados con más profundidad en los temas dedicados a la 
programación orientada a objetos. 
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Sintaxis de un procedimiento Sub 

El formato para la escritura de un procedimiento Sub se muestra en el Código fuente 96. 


[Ámbito] Sub NombreProcedimiento[(ListaParámetros)] 
[CódigoEjecutable] 

[Exit Sub | Return] 

[CódigoEjecutable] 

End Sub 

Código fuente 96 


Los elementos que forman parte de este tipo de rutina son los siguientes: 

• Ámbito. Define el modo en que vamos a poder acceder o llamar al procedimiento desde otro 
punto de la aplicación. El ámbito de los elementos del lenguaje será tratado en un apartado 
posterior. 

• Sub...End Sub. Palabras clave que indican el comienzo y final del procedimiento 
respectivamente. Cuando hagamos una llamada al procedimiento, el compilador ejecutará el 
código comprendido entre estas dos palabras clave. 

• NombreProcedimiento. Identificador que utilizamos para reconocer y llamar al 
procedimiento. 

• ListaParámetros. Lista de identificadores separados por comas, y encerrados entre paréntesis, 
que representan la información que recibe el procedimiento desde el código llamador. Dentro 
del cuerpo del procedimiento, estos identificadores o parámetros se utilizarán igual que 
variables. 

• Return. Esta palabra clave permite salir de la ejecución del procedimiento sin haber llegado a 
su fin. Podemos utilizarla en tantos lugares dentro de un procedimiento como sea necesario. 
Se recomienda su uso en lugar de Exit Sub, ya que podemos emplear Return para salir de 
cualquier tipo de procedimiento, con lo cual se unifica la escritura del código. 

• Exit Sub. Al igual que en el punto anterior, esta palabra clave permite salir de la ejecución del 
procedimiento sin haber llegado a su fin, pudiendo igualmente, situarla en tantos lugares 
dentro del procedimiento como sea necesario. 

El Código fuente 97 muestra el modo más simple de crear un procedimiento. Escriba el lector este 
procedimiento en la aplicación de consola sobre la que está realizando las pruebas, a continuación de 
Main( ). 


Sub Prueba() 

Consolé.WriteLine("Estamos en el procedimiento Prueba") 
End Sub 

Código fuente 97 
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Llamada a un procedimiento Sub 

Para realizar una llamada o ejecutar un procedimiento Sub, debemos escribir su nombre en un punto 
del programa. El Código fuente 98 muestra el código al completo del módulo de nuestra aplicación de 
consola. La ejecución de este programa comienza como es habitual por Main( ), dentro del cual se 
realiza una llamada al procedimiento Prueba( ). 


Module Modulel 
Sub Main() 

Consolé.WriteLine("Estamos en el procedimiento Main") 

1 llamada a un procedimiento 
Prueba() 

Consolé.ReadLine() 

End Sub 

Sub Prueba() 

Consolé.WriteLine("Estamos en el procedimiento Prueba") 
End Sub 

End Module 

Código fuente 98 


En la llamada a un procedimiento Sub, el uso de los paréntesis es opcional, independientemente de si 
pasamos o no parámetros. No obstante, es muy recomendable especificar dichos paréntesis, ya que 
aportan una gran claridad a nuestro código, de forma que al leerlo podemos ver rápidamente los 
puntos en los que se realiza una llamada a una rutina de código. Debido a esto, el IDE sitúa 
automáticamente los paréntesis en el caso de que no los especifiquemos de forma explícita. 

No es posible situar la llamada a un procedimiento Sub como parte de una expresión, puesto que este 
tipo de procedimientos, al no devolver un valor, provocaría un error de compilación. Ver Figura 66. 


Sub Main() 

Din Dato As String 

Dato = "hola " & Prueban 

Esta expresión no genera un valor. 

End Sub 
Sub Prueba() 

Consolé.WriteLine("Estamos en el procedimiento Prueba") 
End Sub 

Figura 66. No es posible hacer una llamada a un procedimiento Sub en una expresión. 


Sintaxis de un procedimiento Function 

El formato para la escritura de un procedimiento Function se muestra en el Código fuente 99. 
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[Ámbito] Function NombreFunción[(ListaParámetros)] As TipoDato 
[CódigoEjecutable] 

[Return Valor] 

[NombreFunción = Valor] 

[Exit Function] 

[CódigoEjecutable] 

End Function 

Código Líente 99 

Los elementos que forman parte de este tipo de rutina son los siguientes: 

• Ambito. Define el modo en que vamos a poder acceder o llamar al procedimiento desde otro 
punto de la aplicación. El ámbito de los elementos del lenguaje será tratado en un apartado 
posterior. 

• Function...End Function. Palabras clave que indican el comienzo y final de la función 
respectivamente. Cuando hagamos una llamada a la función, el compilador ejecutará el código 
comprendido entre estas dos palabras clave. 

• NombreFunción. Identificador que utilizamos para reconocer y llamar a la función. En este 
tipo de procedimiento, también utilizamos su nombre para asignar el valor que será devuelto 
al código llamador en el modo NombreFunción = Valor, en esta última situación, podemos 
situar esta expresión de devolución en tantos lugares como necesitemos dentro de la función. 

• TipoDato. Tipo de dato del valor devuelto como resultado de la ejecución de la función. 

• ListaParámetros. Lista de identificadores separados por comas, y encerrados entre paréntesis, 
que representan la información que recibe la función desde el código llamador. Dentro del 
cuerpo del procedimiento, estos identificadores o parámetros se utilizarán igual que variables. 

• Return. Esta palabra clave permite salir de la ejecución de la función devolviendo al mismo 
tiempo un valor al código que hizo la llamada. Podemos utilizarla dentro de una función, en 
tantos lugares como necesitemos. 

• Exit Function. Esta palabra clave permite salir de la ejecución de la función sin haber llegado 
a su fin. Podemos utilizarla dentro de una función, en tantos lugares como necesitemos. 

El Código fuente 100 muestra un sencillo ejemplo de procedimiento Function, en el cual se pide al 
usuario que introduzca un número que es devuelto como resultado de la función. 


Function Calcular() As Integer 
Dim MiValor As Integer 

Consolé.WriteLine("Introducir un número de 1 a 100") 
MiValor = Consolé.ReadLine() 

Return MiValor 

' también podemos utilizar esta 
' sintaxis para devolver el valor 
1 de retorno de la función: 

'Calcular = MiValor 
End Function 

Código Líente 100 
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En el caso de devolver el valor de retomo de una función utilizando el propio nombre de la función, 
nos encontramos con el problema de que si en un momento detemiinado tenemos que cambiar el 
nombre de la función, también deberemos cambiar todos aquellos puntos de la rutina en donde 
devolvemos el valor. Por este motivo es recomendable el uso de Retum para el devolver el valor de la 
función, ya que si tenemos que cambiar el nombre de la función, no será necesario modificar los 
puntos en los que se devuelve el valor de este tipo de procedimiento. 


Llamada a un procedimiento Function 

Para realizar una llamada o ejecutar un procedimiento Function debemos escribir su nombre en un 
punto del programa al igual que hacemos con los procedimientos Sub; en este aspecto ambos tipos de 
procedimiento son iguales. 

Por otro lado, los puntos que marcan las diferencias entre un Function y un Sub son los siguientes: 

• Un procedimiento Function devuelve un valor, de modo que si queremos obtenerlo, debemos 
asignar la llamada a la función a una variable. Los procedimientos Sub no pueden devolver 
valores. 

• Debido precisamente a la capacidad de un procedimiento Function de devolver un valor, 
podemos situar la llamada a una función dentro de una expresión, y operar con el valor de 
retomo dentro de la expresión, lo cual dota a nuestro código de una mayor flexibilidad. Los 
procedimientos Sub no pueden formar parte de expresiones. 

En el Código fuente 101 vemos varios ejemplos de llamadas a la función Calcular( ), según el modo 
en que vamos a manipular su valor de retomo. 


Module Modulel 
Sub Main() 

Dim Resultado As Integer 
Dim NuevoValor As Integer 

1 llamada a una función sin recoger el valor de retorno, 

' por este motivo, dicho valor se pierde 
Calcular() 

1 llamada a una función obteniendo el valor 
' de retorno y asignando el valor a una variable 
Resultado = Calcular() 

Consolé.WriteLine("La variable Resultado contiene: {o}", Resultado) 

' llamada a una función como parte de una expresión 
NuevoValor = 1500 + Calcular!) * 2 

Consolé.WriteLine("La variable NuevoValor contiene: {0} " , NuevoValor) 

Consolé.ReadLine() 

End Sub 

Function Calcular!) As Integer 
Dim MiValor As Integer 

Consolé.WriteLine("Introducir un número de 1 a 100") 

MiValor = Consolé.ReadLine() 

Return MiValor 
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1 también podemos utilizar esta 
1 sintaxis para devolver el valor 
1 de retorno de la función: 

'Calcular = MiValor 
End Function 

End Module 

Código ñiente 101 


Paso de parámetros a procedimientos 

Un parámetro consiste en un valor que es pasado a un procedimiento. Dicho valor puede ser una 
variable, constante o expresión. Los procedimientos pueden recibir parámetros en forma de lista de 
variables separada por comas, siguiendo la sintaxis que vemos en el Código fuente 102. 


[Optional] [ByVal | ByRef] [ParamArray] NombreParametro As TipoDato 

Código fuente 102 


Las reglas y cuestiones sobre paso de parámetros descritas en los siguientes apartados son válidas 
tanto para procedimientos como para funciones, excepto en aquellos lugares donde se indique lo 
contrario. 


Protocolo de llamada o firma de un procedimiento 

A la lista de parámetros de un procedimiento se le denomina protocolo de llamada o firma (signature) 
del procedimiento. Se trata de un concepto que cubriremos posteriormente en el apartado dedicado a la 
sobrecarga de procedimientos. 


Tipo de dato de un parámetro 

Al igual que hacemos cuando declaramos una variable, al declarar un parámetro debemos especificar 
el tipo de dato que el parámetro va a contener. Esto será o no obligatorio, en función del modificador 
establecido en la instrucción Option Strict. 

En el Código fuente 103 hemos añadido un parámetro de tipo String al procedimiento Prueba( ). 
Cuando llamemos desde otro procedimiento a Prueba(), al pasar desde el código llamador una cadena 
de caracteres, bien de forma literal o en una variable; el contenido de dicha cadena se traspasará a la 
variable situada en la lista de parámetros del procedimiento, que posteriormente visualizaremos en la 
consola. 


Sub Main() 

Dim Nombre As String 


Nombre = "Juan" 
Prueba(Nombre) 


Prueba("Esto es una prueba") 
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Consolé.ReadLine() 

End Sub 

Sub Prueba(ByVal ValorMostrar As String) 

Consolé.WriteLine("El valor del parámetro pasado es {o}", ValorMostrar) 
End Sub 

Código ñiente 103 


Modos de paso de parámetros a un procedimiento 

Existen dos modos en el lenguaje de pasar parámetros a un procedimiento: por valor y por referencia. 
Este aspecto del lenguaje está relacionado con la forma en que el contenido de los parámetros es 
gestionado internamente en memoria. Ello nos permitirá según el tipo de paso empleado, poder alterar 
el valor del parámetro en el código que realizó la llamada. 


Paso por valor (ByVal) 

Cuando pasamos un parámetro por valor a un procedimiento, la variable que contiene el parámetro 
puede ser modificada dentro del procedimiento, sin que estos cambios afecten al valor original en el 
código llamador. Debemos situar en este caso en el procedimiento, la palabra clave ByVal antes del 
nombre del parámetro. Ver Código fuente 104. 


Sub Main() 

Dim Nombre As String 

Nombre = "Juan" 

1 llamamos a un procedimiento 
1 y le pasamos una variable por valor 
Prueba(Nombre) 

1 la variable que hemos pasado al procedimiento, 

' al volver aquí no ha sido cambiada, debido a que 
' ha sido pasada por valor, sigue conteniendo 
1 la cadena "Juan" 

Consolé.WriteLine("Valor de la variable dentro de Main() : {0} " , Nombre) 

Consolé.ReadLine() 

End Sub 

Sub Prueba(ByVal ValorMostrar As String) 

1 modificamos el valor del parámetro, 

' este cambio no afecta a la variable Nombre 
ValorMostrar = "Elena" 

Consolé.WriteLine("Valor del parámetro dentro de Prueba() : {o}", ValorMostrar) 
End Sub 

Código ñiente 104 


Lo que ocurre en el fuente anterior a nivel de gestión interna en memoria de los parámetros es lo 
siguiente: cuando se realiza la llamada al procedimiento y se pasa el parámetro, el entorno detecta que 
se trata de un parámetro pasado por valor, por lo que crea una nueva variable en memoria que será la 
que manipulemos dentro del procedimiento. La Figura 67 muestra una representación gráfica de este 
proceso. 
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Memoria 








Prueb a(Nombre) 


PruebafBvVal ValorMostrar) 




'v alorMostrar > \ 
“Elena” 


Figura 67. Esquema de gestión intema de variables en el paso por valor. 


En el entorno de .NET Framework, por defecto, todos los parámetros son pasados por valor. Esto lo 
puede comprobar el lector de un modo muy simple: si al declarar un parámetro no especifica el tipo de 
paso, el IDE automáticamente situará junto a ese parámetro la palabra clave ByVal. 

Se recomienda siempre que sea posible el paso de parámetros por valor, ya que ayuda a generar un 
código más optimizado y contribuye a mejorar la encapsulación. 


Paso por referencia (ByRef) 

Cuando pasamos un parámetro por referencia a un procedimiento, si modificamos dentro del 
procedimiento la variable que contiene el parámetro, dichos cambios en este caso sí afectarán al 
código llamador. Debemos situar en este caso en el procedimiento, la palabra clave ByRef antes del 
nombre del parámetro. Cambiemos el código del anterior ejemplo, haciendo que en este caso, el 
parámetro sea pasado por referencia y observemos los resultados. Ver el Código fuente 105. 


Sub Main() 

Dim Nombre As String 
Nombre = "Juan" 

Consolé.WriteLine("Valor de la variable antes de llamar a Prueba() : {0} " , 

Nombre) 

1 llamamos a un procedimiento 
' y le pasamos una variable por referencia 
Prueba(Nombre) 

1 el cambio realizado al parámetro en el procedimiento 
1 ha afectado a la variable Nombre, que aquí contiene 
' el mismo valor que se asignó en el procedimiento 

Consolé.WriteLine("Valor de la variable al volver a Main() : {0} " , Nombre) 
Consolé.ReadLine() 

End Sub 
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Sub Prueba(ByRef ValorMostrar As String) 

1 modificamos el valor del parámetro 
ValorMostrar = "Elena" 

Consolé.WriteLine("Valor del parámetro dentro de Prueba(): {o}", ValorMostrar) 
End Sub 

Código ñiente 105 


Lo que ocurre en el fuente anterior a nivel de gestión interna en memoria de los parámetros es lo 
siguiente: cuando se realiza la llamada al procedimiento y se pasa el parámetro, el entorno detecta que 
se trata de un parámetro pasado por referencia, y tanto la variable del código llamador como la del 
procedimiento llamado utilizan la misma dirección de memoria o referencia hacia los datos, por lo que 
los cambios realizados en un procedimiento afectarán también al otro. La Figura 68 muestra una 
representación gráfica de este proceso. 



/ . 

Main( ) 




Prueba(Nombre) 



Prueb a(B vRe f V alorMo strar) 

r 


Figura 68. Esquema de gestión interna de variables en el paso por referencia. 


Paso de parámetros por posición y por nombre 

Cuando al llamar a un procedimiento con parámetros, pasamos estos en el mismo orden en el que 
están especificados en la declaración del procedimiento, se dice que se ha realizado un paso de 
parámetros por posición. 

Existe además, otro modo de paso de parámetros en el cuál no estamos obligados a situarlos en el 
mismo orden que indica la declaración, es el llamado paso de parámetros por nombre. En este tipo de 
paso, debemos situar en la llamada al procedimiento el nombre del parámetro, seguido de los signos de 
dos puntos e igual ( := ) y finalmente el valor a pasar. 

El Código fuente 106 muestra unos ejemplos con ambos tipos de paso de parámetros. 


128 




























© Grupo EIDOS 


5. Procedimientos 


Sub Main() 

Dim Localidad As String 
Dim Importe As Integer 
Dim DiaHoy As Date 


Localidad = "Sevilla" 

Importe = 15044 
DiaHoy = #2/10/2002# 

' paso de parámetros por posición 
Prueba(Localidad, Importe, DiaHoy) 


Localidad = "Madrid" 

Importe = 250 
DiaHoy = #5/8/2002# 

1 paso de parámetros por nombre 

Prueba(Cantidad:=Importe, Fecha:=DiaHoy, Ciudad:=Localidad) 

Consolé.ReadLine() 

End Sub 

Sub Prueba(ByVal Ciudad As String, ByVal Cantidad As Integer, ByVal Fecha As Date) 
Consolé.WriteLine("Valores de los parámetros") 

Consolé.WriteLine("Ciudad: {0} - Cantidad: {l} - Fecha: {2}", Ciudad, Cantidad, 

Fecha) 

End Sub 

Código ñiente 106 


Podemos mezclar ambos tipos de paso en la llamada a un procedimiento, teniendo en cuenta que los 
parámetros en los que no utilicemos paso por nombre, deberemos situarlos en su posición correcta. El 
Código fuente 107 muestra un ejemplo con una variación sobre el ejemplo anterior. 


Prueba(Localidad, Fecha:=DiaHoy, Cantidad:=Importe) 

Código fuente 107 


Parámetros opcionales 

Un parámetro opcional es aquel que no es necesario especificar al hacer la llamada a un 
procedimiento. 

Para indicar en la declaración de un procedimiento que un parámetro es opcional, debemos utilizar la 
palabra clave Optional seguida de la especificación del parámetro, y finalizar con la asignación de un 
valor por defecto para el parámetro. Teniendo en cuenta además, que a partir del primer parámetro 
opcional en la lista de un procedimiento, todos los parámetros sucesivos también deben ser opcionales. 

En el Código fuente 108 creamos una función en la que declaramos un parámetro opcional. Después 
hacemos dos llamadas a dicho procedimiento, pasando y omitiendo el parámetro opcional 
respectivamente en cada llamada. 
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Sub Main() 

Dim Localidad As String 
Dim Importe As Integer 
Dim Resultado As Integer 


Localidad = "Sevilla" 

Importe = 15044 

1 paso de todos los parámetros al procedimiento 
Resultado = Calcular(Localidad, Importe) 

Consolé.WriteLine("Primera llamada, valor devuelto: {o}", Resultado) 


Localidad = "Madrid" 

' paso sólo del primer parámetro al procedimiento, 

1 esto hará que se utilice el valor por defecto 
1 del parámetro opcional 
Resultado = Calcular(Localidad) 

Consolé.WriteLine("Segunda llamada, valor devuelto: {o}", Resultado) 

Consolé.ReadLine() 

End Sub 

Function Calcular(ByVal Ciudad As String, Optional ByVal Cantidad As Integer = 
5500) As Integer 

Consolé.WriteLine("Valores de los parámetros") 

Consolé.WriteLine("Ciudad: {0} - Cantidad: {l}". Ciudad, Cantidad) 

Return Cantidad + 100 
End Function 

Código ñiente 108 


Array de parámetros 

Cuando en la lista de parámetros de un procedimiento utilizamos la palabra clave ParamArray junto al 
nombre del último parámetro de la lista, dicho parámetro será considerado un array, por lo que al 
hacer la llamada al procedimiento podremos pasarle un número variable de valores, que manejaremos 
a través del array. El Código fuente 109 muestra un ejemplo. 


Sub Main() 

Dim Valor As Integer 
Dim Ciudad As String 
Dim Nombre As String 

Valor = 7954 
Ciudad = "Valencia" 

Nombre = "Jorge" 

' en la llamada al procedimiento Prueba () 

1 todos los valores que pasemos a continuación 
1 del primer parámetro, serán depositados 
1 en el array de parámetros 
Prueba(Valor, Ciudad, "mesa", Nombre) 

Consolé.ReadLine() 

End Sub 
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1 el parámetro MasDatos del procedimiento es un array 
1 de parámetros variables 

Sub Prueba(ByVal Importe As Integer, ByVal ParamArray MasDatos() As String) 
Dim Contador As Integer 

1 mostrar el primer parámetro 

Consolé.WriteLine("Parámetro Importe: {o}", Importe) 

Consolé.WriteLine() 

1 el resto de parámetros del procedimiento 
' están en el array, los obtenemos recorriéndolo 
' con(una) estructura For...Next 

Consolé.WriteLine("Contenido del array de parámetros MasDatos():") 

For Contador = 0 To UBound(MasDatos) 

Consolé.WriteLine("Elemento: {0} - Valor: {l}", 

Contador, MasDatos(Contador)) 

Next 
End Sub 

Código ñiente 109 


Con ParamArray tenemos la ventaja de que podemos pasar una cantidad variable de parámetros al 
procedimiento en cada llamada. La única restricción es que debemos utilizarlo como último parámetro 
de la lista del procedimiento. 


Sobrecarga de procedimientos 

Si bien el uso de parámetros opcionales es un medio para ahorrar al programador el paso de los 
mismos en situaciones en las que no son necesarios, resulta una solución un tanto artificiosa, ya que lo 
que realmente hace es complicar más que facilitar la escritura de código. 

VB.NET aporta al lenguaje una nueva técnica que permite obviar el uso de parámetros opcionales por 
una solución más elegante y flexible: los procedimientos sobrecargados. 

Antes de explicar en qué consiste un procedimiento sobrecargado, situémonos en el siguiente 
escenario: 

Necesitamos mostrar los datos de un empleado de dos formas, en función del modo de consulta. Por 
un lado visualizaríamos su nombre, domicilio y localidad; y por otra parte su edad, DN1 y fecha de alta 
en la empresa. 

Con lo que sabemos hasta el momento, podríamos resolver este problema escribiendo un 
procedimiento con parámetros opcionales, y según pasáramos un valor u otro, mostrar la información 
correspondiente. 

El Código fuente 110 muestra este modo de resolver el problema. El uso de la estructura lf...End If 
será explicado posteriormente en el apartado dedicado a estructuras de control, por lo que aclararemos 
brevemente al lector que el uso de esta estructura nos permite ejecutar bloques de código en función 
de que la expresión utilizada a continuación de If se evalúe o no a Verdadero. 


Sub Main() 

1 mostrar datos del empleado 
1 en función del nombre 
VerDatosEmpleado("Pedro") 
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' mostrar datos del empleado 
1 en función de la edad 
VerDatosEmpleado(, 28) 

Consolé.ReadLine() 

End Sub 

Sub VerDatosEmpleado(Optional ByVal Nombre As String = "X", Optional ByVal Edad As 
Integer = 999) 

If Nombre <> "X" Then 

Consolé.WriteLine("Nombre del empleado: {o}", Nombre) 

Consolé.WriteLine("Domicilio: Colina Alta,12") 

Consolé.WriteLine("Localidad: Salamanca") 

End If 

If Edad <> 999 Then 

Consolé.WriteLine("Edad del empleado: {0}", Edad) 

Consolé.WriteLine("DNI:21555666") 

Consolé.WriteLine("Fecha de alta en la empresa: 10/4/1997") 

End If 

Consolé.WriteLine() 

End Sub 

Código fuente 110 

El uso de parámetros opcionales, como acabamos de constatar, resulta engorroso, ya que nos obliga a 
comprobar qué valor ha sido pasado y mostrar los datos correspondientes en consecuencia. Tenemos 
además, un inconveniente añadido, y es que podemos pasar los dos parámetros a la vez, con lo que se 
mostrarían todos los datos, cuando lo que queremos es visualizar un grupo u otro en cada llamada. 

Una aproximación diferente al problema sería escribir dos procedimientos distintos, y llamar a uno u 
otro según los datos que necesitemos. Ver Código fuente 111. 


Sub Main() 

1 mostrar datos del empleado según nombre 
VerEmpleNombre("Pedro") 

1 mostrar datos del empleado según edad 
VerEmpleNum(28) 

Consolé.ReadLine() 

End Sub 

Public Sub VerEmpleNombre(ByVal Nombre As String) 

Consolé.WriteLine("Datos empleado por nombre") 

Consolé.WriteLine("Nombre del empleado: {0} " , Nombre) 
Consolé.WriteLine("Domicilio: Colina Alta,12") 

Consolé.WriteLine("Localidad: Salamanca") 

Consolé.WriteLine() 

End Sub 

Public Sub VerEmpleNum(ByVal Edad As Integer) 

Consolé.WriteLine("Datos empleado por edad") 

Consolé.WriteLine("Edad del empleado: {0}", Edad) 

Consolé.WriteLine("DNI:21555666") 

Consolé.WriteLine("Fecha de alta en la empresa: 10/4/1997") 
Consolé.WriteLine() 

End Sub 

Código fuente 111 
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Sin embargo, esta solución nos obliga a tener que saber varios nombres de procedimiento, con lo que 
tampoco ayuda mucho a simplificar el código. 

¿No sería ideal, disponer de un único nombre de procedimiento y que este fuera lo suficientemente 
inteligente para mostrar los datos adecuados en cada caso?, pues esta característica está implementada 
en VB.NET a través de la sobrecarga de procedimientos. 

La sobrecarga de procedimientos es una técnica que consiste en crear varias versiones de un mismo 
procedimiento, distinguiéndose entre sí por la lista de parámetros o protocolo de llamada del 
procedimiento. 

Para definir un procedimiento como sobrecargado, debemos comenzar su declaración con la palabra 
clave Overloads. Podemos utilizar procedimientos tanto Sub como Function cuando realizamos 
sobrecarga., siendo posible que una de las implementaciones no tenga lista de parámetros. El Código 
fuente 112 muestra un ejemplo de sobrecarga. 


Overloads Sub Datos () 

' código del procedimiento 

I 

I 

End Sub 

Overloads Sub Datos(ListaParametrosA) 

' código del procedimiento 

I 

I 

End Sub 

Overloads Function Datos(ListaParametrosB) As TipoDatoRetorno 
' código del procedimiento 

I 

I 

End Function 


Código ñiente 112 


En el ejemplo anterior, cuando llamemos al procedimiento Datos( ), el entorno de .NET Framework, 
en función de si pasamos o no parámetros al procedimiento, y de cómo sean estos parámetros, 
ejecutará la versión adecuada del procedimiento. 

Ya que el protocolo o firma del procedimiento es el elemento que emplea .NET Framework para 
diferenciar cada una de sus versiones o implementaciones, las listas de parámetros de cada versión 
deben ser diferentes al menos en uno de los siguientes aspectos: 

• Número de parámetros. 

• Orden de los parámetros. 

• Tipo de dato de los parámetros. 

Por consiguiente, no es posible crear dos procedimientos sobrecargados que sólo se diferencien en los 
nombres de los parámetros, por los modificadores de ámbito (Public, Prívate, etc.), o por el tipo de 
dato de retomo en el caso de un procedimiento Function. 
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Una vez vistas las normas y restricciones aplicables a los procedimientos sobrecargados, veamos en el 
Código fuente 113 como solucionaríamos el problema planteado al comienzo de este apartado 
empleando esta técnica. 


Sub Main() 

Dim Dias As Integer 

1 mostrar datos del empleado según nombre 
VerEmpleado("Pedro") 

1 mostrar datos del empleado según edad 
Dias = VerEmpleado(28) 

Consolé.WriteLine("Días libres del empleado: {o}", Dias) 

Consolé.WriteLine() 

1 mostrar salario pasando las horas trabajadas 
VerEmpleado(25, 80) 

Consolé.ReadLine() 

End Sub 

Overloads Sub VerEmpleado(ByVal Nombre As String) 

Consolé.WriteLine("Datos empleado por nombre") 

Consolé.WriteLine("Nombre del empleado: {0} " , Nombre) 

Consolé.WriteLine("Domicilio: Colina Alta,12") 

Consolé.WriteLine("Localidad: Salamanca") 

Consolé.WriteLine() 

End Sub 

Overloads Function VerEmpleado(ByVal Edad As Integer) As Integer 
Dim DiasLibres As Integer 

Consolé.WriteLine("Datos empleado por edad") 

Consolé.WriteLine("Edad del empleado: {0}", Edad) 

Consolé.WriteLine("DNI:21555666") 

Consolé.WriteLine("Fecha de alta en la empresa: 10/4/1997") 

Consolé.WriteLine() 

DiasLibres = 5 
Return DiasLibres 
End Function 

Overloads Sub VerEmpleado(ByVal PrecioHora As Integer, ByVal HorasTrabajadas As 
Long) 

Dim Salario As Long 

Salario = PrecioHora * HorasTrabajadas 

Consolé.WriteLine("Salario según horas: {o}", Salario) 

Consolé.WriteLine() 

End Sub 

Código ñiente 113 


En este código hemos creado tres versiones sobrecargadas del procedimiento VerEmpleado(). En una 
mostramos los datos del empleado según el nombre; en otra también mostramos otro conjunto de datos 
según la edad y además, al ser una función, devolvemos el número de días libres del empleado; 
finalmente en una tercera implementación, calculamos el salario según el precio por hora y las horas 
trabajadas, que pasamos al protocolo de llamada. Desde Main( ) por lo tanto, siempre llamamos al 
procedimiento VerEmpleado(). 
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Lista desplegable “Nombre de método”, en el editor de 
código 

La lista desplegable Nombre de método, situada en la parte superior derecha del editor de código, tiene 
dos finalidades principales que describimos a continuación. 

• Mostrar el nombre del procedimiento sobre el que actualmente trabajamos. Esta 
información es útil sobre todo en procedimientos con muchas líneas de código, en las que no 
tenemos en todo momento visible la declaración del procedimiento. 

• Cambiar a otro procedimiento del módulo de código. Abriendo la lista desplegable, y 
haciendo clic en alguno de los nombres de procedimientos que se muestran, no situaremos al 
comienzo de dicho procedimiento. Este es un medio más rápido para desplazamos entre los 
procedimientos que tener que recorrer toda la ventana del editor de código. 

En el ejemplo de la Figura 69, estamos situados en el procedimiento Main( ), y al abrir esta lista de 
procedimientos, podemos cambiar fácilmente a cualquier otro de los que hemos creado. 


‘•í¿Module 1 (ConsoleApplication 1) 


♦ Ver Empleado 


Module Modulel 

R Sub Main() 

Dim Dias As Integer 

• mostrar datos del empleado según nombre 
UerEmpleado("Pedro") 

Y End Sub 


|U\ (Declaraciones) 

♦ Main 

♦ Ver Empleado 


Ouerloads Sub UerEmpleado(ByUal Nombre As String) 

Consolé.WriteLine("Datos empleado por nombre") 

Consolé.WriteLinefNombre del empleado: (O)", Nombre) 


Figura 69. Lista Nombre de método, en el editor de código del IDE. 


El motivo de usar el término método en lugar de procedimiento para esta lista, se debe a que como 
veremos en el tema sobre objetos, todo lo que haremos habitualmente en nuestra labor de 
programación, será crear clases, objetos, métodos, propiedades, etc. Por ello la terminología empleada 
en general se aproxima más a las técnicas de programación con objetos que a la programación 
estructurada. 
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Estructuras de control 


Las estructuras de control junto a los procedimientos, componen los dos elementos que sientan las 
bases de la programación estructurada. 

Las estructuras de control contienen bloques de código que serán ejecutados en función del resultado 
obtenido al evaluar una expresión asociada a la estructura. A este proceso de redirección del flujo del 
programa hacia un determinado bloque de código se le denomina bifurcación 

Según el modo de ejecución del código que contienen, las estructuras de control se dividen en los 
siguientes tipos: selección y repetición. 


Selección 

Las estructuras de selección o decisión permiten ejecutar un bloque de código entre varios disponibles, 
según el resultado de la evaluación de una expresión situada en la cabecera de la estructura. 


If...End If 

La sintaxis de esta estructura puede aplicarse de diferentes formas en función del tipo de decisión a 
resolver. 
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Decisión simple 

La sintaxis de decisión simple se muestra en el Código fuente 114. 


If Expresión Then 
' código 


End If 


Código Líente 114 


Si al evaluar Expresión se devuelve como resultado Verdadero, se ejecutarán las líneas o bloque de 
código comprendido entre If y End If. Si Expresión es Falso, se desviará la ejecución a la primera 
línea de código que haya después de End If. Veamos un ejemplo en el Código fuente 115. 


Sub Main() 

Dim Valor As Integer 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

If Valor = 5 Then 

Consolé.WriteLine("Estamos dentro de la estructura If," & 
" ya que su expresión devuelve Verdadero") 

End If 

Consolé.ReadLine() 

End Sub 

Código Líente 115 


Como habrá podido comprobar el lector, no es necesario especificar en la expresión que el resultado 
de la misma sea Verdadero para poder ejecutar el código de la estructura de control. Las dos formas de 
escribir la expresión del Código fuente 116 son equivalentes; mientras la primera es más simple e 
igualmente comprensible, con la segunda somos lo más explícitos posibles en nuestro código, esto es 
algo que ya queda en el estilo de codificación de cada programador, puesto que el resultado será 
equivalente en ambos casos. 


If Valor = 5 Then 

I 

If (Valor =5) = True Then 


Código Líente 116 


Situémonos ahora en el caso contrario: ¿cómo conseguir que se ejecute el código contenido dentro de 
la estructura de control cuando la expresión a evaluar devuelva Falso?. 
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En esta situación disponemos igualmente de dos formas de hacer las cosas, el uso de una u otra 
dependerá de los gustos del programador. Podemos indicar explícitamente que se ejecute la estructura 
cuando el valor devuelto sea False, o bien utilizar el operador Not. Las dos estructuras lf...End If del 
Código fuente 117 producirían el mismo resultado. 


If Not (Valor = 5) Then 








Consolé.WriteLine(" 

El 

contenido 

de 

la 

variable 

es diferente 

de 5") 

End 

If 








If 

(Valor = 5) = False 

Then 







Consolé.WriteLine(" 

El 

contenido 

de 

la 

variable 

es diferente 

de 5") 

End 

If 









Código fuente 117 


Decisión simple en una línea 

En el caso de que sólo haya que ejecutar una instrucción sencilla cuando se cumple la expresión de la 
estructura, podemos omitir la palabra clave End If, escribiendo la sentencia a ejecutar en la misma 
línea de la declaración de la estructura If, justo a continuación de la palabra Then. La sintaxis en este 
caso, se simplifica, como muestra el Código fuente 118. 


If Expresión Then Instrucción 


Código ñiente 118 


Veamos un ejemplo en el Código fuente 119. 


Sub Main() 

Dim Valor As Integer 
Dim Resultado As Integer 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

If Valor = 5 Then Resultado = Valor + 10 

Consolé.WriteLine("La variable resultado contiene {0} " , Resultado) 
Consolé.ReadLine() 

End Sub 

Código ñiente 119 


Como habrá comprobado el lector, la sentencia que hay a continuación de Then sólo se ejecutará 
cuando la variable Valor contenga 5. 
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Decisión doble 

Además de ejecutar un bloque de código cuando la expresión valga Verdadero, podemos también 
ejecutar código cuando la expresión devuelva Falso. En este caso añadiremos a la estructura la palabra 
clave Else, como muestra la sintaxis del Código fuente 120. 


If Expresión Then 

' código cuando Expresión es Verdadero 


Else 

' código cuando Expresión es Falso 


End If 


Código fuente 120 


Veamos un ejemplo en el Código fuente 121. 


Sub Main() 

Dim Valor As Integer 
Dim Resultado As Integer 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

If Valor = 5 Then 

Resultado = Valor + 10 

Else 

Resultado = 777 
End If 

Consolé.WriteLine("La variable resultado contiene {0} " , Resultado) 
Consolé.ReadLine() 

End Sub 

Código fuente 121 


En este ejemplo, cuando Valor contenga 5 se ejecutará el bloque de código que hay a continuación de 
If, pero cuando Valor contenga un número distinto, se ejecutará el código que hay a continuación de 
Else. La ejecución en cualquier caso, continuará después a partir de la siguiente línea que haya a partir 
de la palabra clave End If. 


Decisión doble en una línea 

Al igual que ocurre con la decisión simple, si para cada resultado de la expresión, sólo necesitamos 
ejecutar una instrucción, podemos escribir todo el código en una sola línea. Veamos la sintaxis en el 
Código fuente 122. 
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If Expresión Then InstrucciónVerdadero Else InstrucciónFalso 

Código fuente 122 


En el Código fuente 123 tenemos un ejemplo de uso. 


Sub Main() 

Dim Valor As Integer 
Dim Resultado As Integer 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

If Valor = 5 Then Resultado = Valor + 10 Else Resultado = 777 

Consolé.WriteLine("La variable resultado contiene {0} " , Resultado) 
Consolé.ReadLine() 

End Sub 

Código ñiente 123 


Si bien la ejecución de la estructura If en una línea puede ser útil en ocasiones, tiene como 
contrapartida el que nuestro código sea más difícil de leer. Por ello es más recomendable el uso de esta 
estructura de control en su formato lf...End If. 


Decisión múltiple 

En el caso de que la expresión principal a evaluar devuelva Faso, podemos agregar expresiones 
adicionales utilizando la palabra clave Elself, con su bloque de código respectivo. En el caso de que 
ninguna de ellas se cumplan, podemos incluir un Else, para ejecutar un bloque de código por defecto. 
Veamos la sintaxis en el Código fuente 124. 


If ExpresiónA Then 

' código cuando ExpresiónA es Verdadero 


Elself ExpresiónB Then 

' código cuando ExpresiónB es Verdadero 


[Elself ExpresiónN Then] 

' código cuando ExpresiónN es Verdadero 


[Else] 


código cuando ninguna epxresión devuelve Verdadero 


End If 


Código fuente 124 
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A continuación vemos un ejemplo en el Código fuente 125. 


Sub Main() 

Dim Valor As Integer 
Dim Resultado As Integer 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

If Valor = 5 Then 

Resultado = Valor + 10 

Elself Valor > 100 Then 

Resultado = Valor + 200 

Elself Valor < 1 Then 
Resultado = -8 

Else 

Resultado = 777 
End If 

Consolé.WriteLine("La variable Resultado contiene {0} " , Resultado) 

Consolé.ReadLine() 

End Sub 

Código fuente 125 

En esta situación, si la primera expresión es Verdadero, se ejecutará el código situado a partir de If. 
Sin embargo, si If devuelve Falso, se comprobarán sucesivamente las expresiones de cada uno de los 
Elself existentes. En el caso de algún Elself devuelva Verdadero, se ejecutará el código que haya a 
partir del mismo. Si ninguna de las anteriores situaciones se cumple, se ejecutará el código que haya a 
partir de Else en el caso de que este se haya definido. 

La función IIf() 

Esta función realiza básicamente el mismo trabajo que la estructura lf...End If, pero a través de un uso 
distinto. El Código fuente 126 muestra su sintaxis. 


Ilf(Expresión, RetornoVerdadero, RetornoFalso) 

Código fuente 126 

La mecánica de funcionamiento de llf( ) consiste en pasarle una expresión a evaluar en el primer 
parámetro. Si el resultado de dicha evaluación es Verdadero, se devolverá lo que hayamos situado en 
el parámetro RetornoVerdadero, mientras que si el resultado es Falso, se devolverá el parámetro 
RetornoFalso. El Código fuente 127 muestra un ejemplo de esta función. 


Sub Main() 

Dim Valor As Integer 
Dim Resultado As String 
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Consolé.WriteLine("Introducir el valor a buscar") 

Valor = Consolé.ReadLine() 1 escribir un número 

1 comprobar el contenido de la variable 

Resultado = Ilf(Valor = 500, "Correcto", "No encontrado") 

Consolé.WriteLine("El resultado de la búsqueda ha sido: {o}", Resultado) 
Consolé.ReadLine() 

End Sub 

Código fuente 127 


Select Case...End Select 

Se trata de una evolución en la estructura lf...End If de decisión múltiple, y su trabajo consiste en 
evaluar una expresión y comparar el resultado con la lista de expresiones de cada uno de los casos 
proporcionados. El Código fuente 128 muestra la sintaxis. 


Select Case Expresión 

Case ListaExpresionesA 

' código si se cumple ListaExpresionesA 


[Case ListaExpresionesB] 

1 código si se cumple ListaExpresionesB 


[Case Else] 

' código si no se cumple ninguna ListaExpresiones 


End Select 

Código fuente 128 


La lista de expresiones asociada a cada Case en esta estructura estará separada por comas y podrá tener 
alguno de los siguientes formatos: 

• Expresión. 

• ExpresiónMenor To ExpresiónMayor 

• Is OperadorComparación Expresión 

Tras evaluar la expresión de la estructura, si se encuentra una coincidencia con alguno de los Case, se 
ejecuta el bloque de código situado entre dicho Case y el siguiente. En caso de que no haya ninguna 
coincidencia, podemos opcionalmente, ejecutar un bloque por defecto, utilizando la palabra clave Case 
Else. Finalizada esta estructura, la ejecución continuará a partir de la línea situada después de End 
Select. 

Veamos a continuación, en el Código fuente 129 un ejemplo de uso de esta estructura. 


Sub Main() 
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Dim Valor As Integer 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

Select Case Valor 
Case 5 

Consolé.WriteLine("El valor es 5") 

Case 120, 250 

Consolé.WriteLine("El valor es 120 ó 250") 

Case 3000 To 4000 

Consolé.WriteLine("El valor está en el rango de 3000 a 4000") 

Case Is < 10 

Consolé.WriteLine("El valor es menor de 10") 

Case Else 

Consolé.WriteLine("El valor es {o}, y no se cumple ningún caso", Valor) 

End Select 

Consolé.ReadLine() 

End Sub 

Código fuente 129 

En el caso de que tras evaluar la expresión, haya más de un Case cuya lista de expresiones se cumpla, 
se ejecutará el que esté situado en primer lugar. En el ejemplo anterior, cuando la variable Valor 
contiene 5, se cumplen dos casos. Ver Código fuente 130. 


Case 5 

Consolé.WriteLine("El valor es 5") 


Case Is < 10 

Consolé.WriteLine("El valor es menor de 10") 

Código fuente 130 


Sin embargo sólo se ejecuta el código del primer Case. 

Por otro lado, la lista de expresiones puede ser una combinación de los distintos formatos disponibles. 
Ver Código fuente 131. 


Case 12 To 15, 4, 7, Is > 20 

Código fuente 131 
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Repetición 

Estas estructuras, también denominadas bucles, ejecutan un bloque de código de forma repetitiva 
mientras se cumpla una condición asociada a la estructura. A cada una de las ocasiones en que se 
ejecuta el código contenido en estas estructuras se le denomina iteración. 


While...End While 

Se trata del tipo más sencillo, ejecuta las líneas de código que contiene, mientras que la expresión 
situada junto a While devuelva Verdadero. Veamos su sintaxis en el Código fuente 132. 


While Expresión 
' código 


End While 

Código ñiente 132 


Y a continuación, un ejemplo en el Código fuente 133. 


Sub Main() 

Dim Valor As Integer 
Dim Contador As Integer 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

Consolé.WriteLine("Mostrar en consola todos los números desde 1 hasta el 
introducido") 

While Contador < Valor 

Consolé.Write("-" & Contador) 

Contador += 1 
End While 

Consolé.ReadLine() 

End Sub 

Código ñiente 133 


Do...Loop 


Esta estructura ejecuta un conjunto de líneas de código, en función del valor devuelto por una 
expresión, que a modo de condición, podemos situar al comienzo o final de la estructura. 

Es posible además, no utilizar la expresión de evaluación al principio o final, debiendo en ese caso, 
introducir alguna condición en el interior del código de la estructura, para forzar la salida del bucle y 
evitar caer en un bucle infinito. La instrucción Exit Do nos permite forzar la salida del bucle, pudiendo 
emplearla tantas veces como sea necesario. 

Veamos a continuación, las diferentes variantes disponibles. 
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Condición al principio 

La sintaxis se muestra en el Código fuente 134. 


Do While | Until Expresión 
' código 


[Exit Do] 
' código 


Loop 


Código fuente 134 


La diferencia entre usar While o Until reside en que empleando While, el código del bucle se ejecutará 
mientras la expresión devuelva Verdadero. En el caso de Until, el código se ejecutará mientras que la 
expresión devuelva Falso. Veamos los ejemplos del Código fuente 135. 


Sub Main() 

Dim Valor As Integer 
Dim Palabra As String 
Dim Contador As Integer 
Dim Pruebas As Integer 

' bucle con While 
Do While Valor <> 200 

Consolé.WriteLine("Introducir un número") 
Valor = Consolé.ReadLine() 

Loop 

' bucle con Until 
Do Until Palabra = "coche" 

Consolé.WriteLine("Introducir una palabra") 
Palabra = Consolé.ReadLine() 

Loop 
End Sub 

Código ñiente 135 


Condición al final 

La diferencia en este caso, consiste en que el contenido de la estructura se ejecuta al menos una vez. El 
Código fuente 136 muestra su sintaxis. 


Do 

' código 

I 

[Exit Do] 

' código 

I 

Loop While | Until Expresión 

Código ñiente 136 
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El Código fuente 137 muestra algunos ejemplos. 


Sub Main() 

Dim Valor As Integer 
Dim Palabra As String 

' bucle con While 
Do 

Consolé.WriteLine("Introducir un número") 
Valor = Consolé.ReadLine() 

Loop While Valor o 200 

' bucle con Until 
Do 

Consolé.WriteLine("Introducir una palabra") 
Palabra = Consolé.ReadLine() 

Loop Until Palabra = "coche" 

End Sub 


Código fuente 137 


Sin condición 

Este es el modo más sencillo de la estructura: sin incluir condición al principio o final. También es el 
modo más peligroso, ya que si no incluimos un control dentro del código, corremos el riesgo de caer 
en un bucle infinito. En el ejemplo del Código fuente 138, establecemos una condición de salida 
mediante una estructura If dentro del bucle, que comprueba el contenido de la variable, y fuerza la 
salida cuando tenga un valor superior a cierto número. 


Sub Main() 

Dim Valor As Integer 
Do 

Consolé.WriteLine("Introducir un número") 
Valor = Consolé.ReadLine() 

' comprobar y salir del bucle si es necesario 
If Valor > 400 Then 
Exit Do 
End If 

Loop 
End Sub 


Código fuente 138 


For...Next 

Esta estructura ejecuta un bloque de código un número determinado de veces, establecido por un rango 
de valores y controlado por un contador. El Código fuente 139 muestra su sintaxis 


For Contador = Inicio To Fin [Step Incremento] 
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' código 


[Exit For] 
' código 


Next 


Código fuente 139 


El elemento Contador se inicializa con un valor y el código existente entre For y Next es ejecutado una 
serie de veces, hasta que el valor de Contador se iguala a Fin. 

Por defecto, los incrementos de Contador son en uno, pero podemos cambiar este aspecto utilizando el 
modificador Step, mediante el que podemos establecer el número en el que se van a realizar los 
incrementos. Step también nos permite realizar decremento utilizando un número negativo. 

Si queremos realizar una salida de la ejecución de esta estructura antes de haber completado el número 
de iteraciones establecidas, podemos utilizar la instrucción Exit For, que provocará dicha salida de 
igual modo que el explicado anteriormente en la estructura Do...Loop. 

El Código fuente 140 muestra diferentes ejemplos de uso de este tipo de bucle. 


Sub Main() 

Dim Contador As Integer 
Dim Final As Integer 

1 recorrido simple del bucle 
Consolé.WriteLine("Bucle For normal") 

For Contador = 1 To 10 

Consolé.WriteLine("Variable Contador: {0} " , Contador) 

Next 

Consolé.WriteLine() 

1 recorrer el bucle especificando un incremento 
Consolé.WriteLine("Bucle For con incremento") 

Consolé.WriteLine("Introducir el número de ejecuciones para el bucle") 
Final = Consolé.ReadLine() 

For Contador = 1 To Final Step 4 

Consolé.WriteLine("Variable Contador: {0}", Contador) 

Next 

Consolé.WriteLine() 

1 recorrer el bucle especificando un decremento 
Consolé.WriteLine("Bucle For con decremento") 

For Contador = 18 To 4 Step -1 

Consolé.WriteLine("Variable Contador: {0}", Contador) 

Next 

Consolé.WriteLine() 

1 este bucle no se ejecutará, 

' al ser mayor el valor de contador 
' que el valor final, y no haber 
1 establecido un decremento 
For Contador = 18 To 4 

Consolé.WriteLine("Variable Contador: {0}", Contador) 

Next 
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' recorrer el bucle y salir antes de completar 
1 todas las iteraciones 

Consolé.WriteLine("Bucle For con salida antes de completar") 
For Contador = 1 To 10 

Consolé.WriteLine("Variable Contador: {o}", Contador) 

If Contador = 7 Then 
Exit For 
End If 

Next 

Consolé.ReadLine() 

End Sub 

Código ñiente 140 


Un truco para optimizar y acelerar la ejecución en un bucle de este tipo, consiste en utilizar como 
contador una variable de tipo Integer, en vez de una de tipo Short, Long, Decimal, etc. Esto es debido 
a que los tipos Integer se actualizan más rápidamente que los otros tipos numéricos, aunque la 
diferencia sólo será apreciable en bucles que ejecuten muchos miles de iteraciones y que contengan 
muchas instrucciones. Ver Código fuente 141. 


Dim ContRapido As Integer 
Dim ContLento As Decimal 

' este bucle se ejecutará más rápido que el siguiente 
For ContRapido = 1 To 10000 
' código 

Next 

For ContLento = 1 To 10000 
' código 

Next 

Código fuente 141 


For Each...Next 

Se trata de una variante de la estructura For...Next, y su misión consiste en ejecutar un bloque de 
código por cada uno de los elementos existentes en un array o colección. El Código fuente 142 
muestra su sintaxis. 


For Each Elemento In ColecArray 
' código 


[Exit For] 
' código 


Next 

Código fuente 142 


El Código fuente 143 muestra un ejemplo del uso de esta estructura de control. 
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Sub Main() 

' crear un array y rellenarlo con valores 

Dim IsColoresO As String = {"Azul", "Verde", "Marino", "Violeta"} 
Dim IsColor As String 

' en cada iteración se obtiene un elemento 
' del array IsColores, y se guarda en la variable IsColor 
For Each IsColor In IsColores 

Consolé.WriteLine(IsColor) 

Next 
End Sub 

Código fuente 143 


Anidación de estructuras de control 

Esta técnica de escritura del código consiste en incluir una estructura de control dentro de otra 
estructura ya existente. La estructura anidada o interior puede ser del mismo o diferente tipo que la 
estructura contenedora o exterior, siendo posible además, anidar más de una estructura, y a varios 
niveles de profundidad. Veamos unos ejemplos en los siguientes apartados 


Anidación de estructuras de selección 

El Código fuente 144 muestra un ejemplo de anidación de dos estructuras lf...End If 


Sub Main() 

1 dos estructuras If anidadas 
Dim ValorEntrada As Integer 
Dim Nombre As String 

Consolé.WriteLine("Introducir un número") 
ValorEntrada = Consolé.ReadLine() 

' estructura externa 
If ValorEntrada = 5 Then 

Consolé.WriteLine("Introducir un nombre") 

Nombre = Consolé.ReadLine() 

1 estructura interna 
If Nombre = "Pedro" Then 

Consolé.WriteLine("Has llegado al interior") 
End If 

End If 

End Sub 

Código fuente 144 


Anidación de estructuras de repetición 

El Código fuente 145 muestra un ejemplo de anidación de dos estructuras For...Next. 
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Sub Main() 

' dos estructuras For anidadas 
Dim Contadorl As Integer 
Dim Contador2 As Integer 

For Contadorl = 1 To 5 

Consolé.WriteLine("Estructura externa, valor: {o}", Contadorl) 

For Contador2 = 1 To 3 

Consolé.WriteLine("- Estructura interna, valor: {o}", Contador2) 

Next 

Next 
End Sub 

Código ñiente 145 


Anidación de estructuras de distinto tipo y a varios niveles 

En el siguiente ejemplo vamos a realizar una combinación de estructuras anidadas de tipos distintos y 
a más de un nivel de profundidad. 

A partir de un array de cadenas de caracteres, vamos a realizar un proceso que se va a repetir tantas 
veces como cadenas haya en el array. En cada proceso vamos a dar tres oportunidades de introducir 
una cadena por consola. Si la cadena introducida coincide con el elemento del array que corresponde 
al número de iteración que estamos haciendo actualmente sobre el bucle For, se mostrará un mensaje y 
saldremos a la siguiente iteración de For. Ver Código fuente 146. 


Sub Main() 

Dim Nombres!) As String = {"Ana", "Pedro", "Luis", "Elena", "Olga"} 

Dim Repeticiones As Integer 
Dim Valor As Integer 
Dim Nombre As String 

For Repeticiones = 0 To 4 

Consolé.WriteLine("Captura de nombre, intento {o}", Repeticiones + 1) 
Valor = 1 

Do While Valor <= 3 

Consolé.WriteLine("Introducir un nombre") 

Nombre = Consolé.ReadLine() 

If Nombre = Nombres(Repeticiones) Then 
Consolé.WriteLine("Nombre correcto") 

Exit Do 
End If 

Valor += 1 

Loop 

Next 
End Sub 

Código ñiente 146 
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Anidación incorrecta de estructuras 

Cuando escribimos estructuras de control anidadas, debemos ser precavidos para evitar que parte de 
una estructura de nivel interior quede fuera de la estructura exterior, ya que esto provocaría un error de 
sintaxis 

Al escribir estructuras anidadas, hemos de poner cuidado para evitar que parte de la estructura de nivel 
interior, quede fuera de la estructura de nivel exterior, ya que esto provocaría un error, como muestra 
el esquema de la Figura 70. 


Do While Ualor <= 3 

Consolé.WriteLine("Introducir un nombre") 
Nombre = Consolé .ReadLine() 

- If Nombre = Nombres(Repeticiones) Then 

Consolé.WriteLine("Nombre correcto") 
Exit Do 

Loop 

Ualor += 1 
- End If 


Figura 70. Esquema de anidación incorrecta de estructuras de control. 


Construcciones derivadas de las estructuras de control 

El carácter de bifurcación o iteración de las estructuras de control, nos permite la creación de 
construcciones de código que se repiten un número determinado de veces, para llevar el control de las 
ejecuciones de un bloque de código y acumulación de valores. Los nombres más habituales con que se 
conocen este tipo de construcciones son: interruptor, contador y acumulador. 


Contadores 

Un contador consiste en una variable que como su propio nombre indica, realizará un cálculo de las 
iteraciones efectuadas dentro de un bucle. El Código fuente 147 muestra un ejemplo. 


Sub Main() 

Dim Contador As Integer 
Dim Nombre As String 

Consolé.WriteLine("Introducir un nombre") 

Do While Nombre o "Carlos" 

Contador += 1 

Consolé.WriteLine("Valor del contador: {0} " , Contador) 
Nombre = Consolé.ReadLine() 

Loop 
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Consolé.WriteLine("El bucle se ha ejecutado {0} veces", Contador) 
Consolé.ReadLine() 

End Sub 


Código fuente 147 


Acumuladores 

Un acumulador es una variable que va almacenando dentro de un bucle el resultado de una suma 
efectuada a cada iteración del mismo, tal y como se muestra en el Código fuente 148. 


Sub Main() 

Dim Contador As Integer 
Dim Acumulador As Integer 
Dim Cantidad As Integer 

For Contador = 1 To 5 

Consolé.WriteLine("Introducir una cantidad numérica") 

Cantidad = Consolé.ReadLine() 

Acumulador += Cantidad 

Consolé.WriteLine("El acumulador contiene un valor de {0}", Acumulador) 

Next 

Consolé.ReadLine() 

End Sub 

Código ñiente 148 


Interruptores 

Dentro de un proceso repetitivo, un interruptor o switch consiste en una variable que tomará dos 
estados: conectado y desconectado; de forma que en función de dicho estado se ejecutará un 
determinado bloque de código. Veamos un ejemplo en el Código fuente 149. 


Sub Main() 

Dim Valores() As Integer = {345, 43, 875, 126, 900, 4112} 

Dim Interruptor As Integer 

Dim Contador As Integer 

Dim Cantidadl As Integer 

Dim Cantidad2 As Integer 

1 inicializar el estado del interruptor 
Interruptor = 1 

For Contador = 0 To UBound(Valores) 

' según el estado del interruptor 
1 acumular el valor de la posición actual 
1 del array en una u otra variable 
If Interruptor = 1 Then 

Cantidadl += Valores(Contador) 

Else 

Cantidad2 += Valores(Contador) 

End If 
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1 cambiar el estado del interruptor 
If Interruptor = 1 Then 
Interruptor = 0 

Else 

Interruptor = 1 
End If 

Next 
End Sub 

Código ñiente 149 


En el anterior ejemplo, el cambio de estado del interruptor lo podemos simplificar en gran medida 
mediante el uso del operador Not. El Código fuente 150 muestra el fragmento de código del anterior 
ejemplo en el que se cambia el estado pero mediante esta otra técnica. 


1 cambiar el estado del interruptor 
Interruptor = Not Interruptor 


Código fuente 150 


Bifurcaciones incondicionales con Goto 

La instrucción Goto, al igual que sucede con las estructuras de control del lenguaje, realiza una 
bifurcación en el flujo de ejecución del programa. 

La diferencia con las estructuras de control radica en que Goto realiza la bifurcación de forma 
incondicional, mientras que las estructuras proporcionan una alternativa para permitir realizar o no las 
oportunas bifurcaciones. Por este motivo se suele decir que Goto realiza un salto no estructurado en la 
ejecución del programa. 

Goto realiza un salto hacia lo que se denomina una etiqueta de código, que consiste en un bloque de 
líneas encabezadas por un identificador y dos puntos. Las etiquetas de código deben situarse al final 
del procedimiento en el que vayan a utilizarse, y para realizar un salto en la ejecución hacia una de 
ellas, debemos escribir dicha etiqueta en el procedimiento y utilizar Goto con la sintaxis del Código 
fuente 151. 


Goto NombreEtiqueta 


Código fuente 151 


En el ejemplo del Código fuente 152, podemos ver que para ejecutar un bloque de código lo situamos 
en una etiqueta, y mediante Goto se realiza una bifurcación a la misma. Sin embargo, el inconveniente 
con esta construcción reside en que una vez ejecutado el código de la etiqueta, no se devuelve el flujo 
de la ejecución al punto en el que se hizo la llamada con Goto (cosa que sí sucede cuando utilizamos 
procedimientos), sino que continúa la ejecución hasta el final del procedimiento, con lo que perdemos 
toda la estructuración en el programa. 
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6. Estructuras de control 


Sub Main() 

Dim Valor As Integer 
Dim Resultado As Integer 

Consolé.WriteLine("Introducir valor") 

Valor = Consolé.ReadLine() 

Goto OperacVarias ' realizamos un salto con Goto 

1 estas líneas no se ejecutarán 
Resultado = Valor * 5 

Consolé.WriteLine("El resultado es {o}", Resultado) 

1 etiqueta de código 
OperacVarias: 

Consolé.WriteLine("Estamos en el bloque de Goto") 
End Sub 

Código ñiente 152 


A continuación vamos a proponer un problema que abordaremos aportando una solución mediante dos 
vías: una que emplee Goto y otra estructurada, para ver las diferencias entre cada una de ellas. 

Debemos introducir un nombre mediante la ventana de la consola, y mostrarlo convertido a 
mayúsculas, para posteriormente, concatenar dicho nombre con otra cadena y mostrar el resultado. 

Veamos en el Código fuente 153 la versión de este algoritmo, con la fase de conversión a mayúsculas 
realizada utilizando una etiqueta a la que llamaremos con Goto. 


Public Sub Main() 

Dim Nombre As String 

Dim Ciudad As String 

Dim Dato As String 


Consolé.WriteLine("Introducir un nombre") 

Nombre = Consolé.ReadLine() 


1 saltamos con Goto a la etiqueta MostrarMayus 
GoTo MostrarMayus 


1 estas lineas no se ejecutarán 

Ciudad = "Salamanca" 

Dato = Nombre & " " & Ciudad 

Consolé.WriteLine("Los valores unidos son: {0}", 

Dato) 

MostrarMayus: 

1 en esta etiqueta de código mostramos el valor 
' de la variable en mayúsculas 

Consolé.WriteLine("El nombre en mayúsculas es: { 
Consolé.ReadLine() 

End Sub 

O}", UCase(Nombre)) 


Código fuente 153 


Ahora veamos en el Código fuente 154, el algoritmo resuelto con la conversión a mayúsculas realizada 
mediante la llamada a un procedimiento. En esta ocasión, el código del programa queda mucho mejor 
organizado y estructurado, siendo además, más fácil su mantenimiento y lectura. 
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Public Sub Main() 

Dim Nombre As String 
Dim Ciudad As String 
Dim Dato As String 

Consolé.WriteLine("Introducir un nombre") 

Nombre = Consolé.ReadLine() 

1 llamamos al procedimiento que realiza la operación de conversión 
MostrarMayus(Nombre) 

1 ejecutamos el resto del código de este procedimiento 
Ciudad = "Salamanca" 

Dato = Nombre & " " & Ciudad 

Consolé.WriteLine("Los valores unidos son: {o}", Dato) 

Consolé.ReadLine() 

End Sub 


Public Sub MostrarMayus(ByVal EINombre As String) 

' en este procedimiento convertimos el parámetro a mayúsculas 
Consolé.WriteLine("El nombre en mayúsculas es: {o}", UCase(EINombre)) 
End Sub 

Código ñiente 154 


Como conclusión podemos deducir que el uso de Goto para ejecutar bloques de código dentro de un 
procedimiento, es una práctica totalmente desaconsejable, debido a la pérdida de estructuración del 
código, y complejidad en el mantenimiento del programa que producen. Ante el análisis de un 
determinado problema a resolver, recomendamos al lector un detallado estudio del mismo, ya que con 
toda seguridad, siempre dispondremos de una alternativa estructurada de escribir su algoritmo, que 
evite el uso de la instrucción Goto. 
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del lenguaje 


Archivos y módulos de código en un programa 

La plataforma .NET Framework nos permite una gran flexibilidad para ordenar el código de nuestra 
aplicación, que debemos organizar en contenedores físicos y lógicos de código. 

Un contenedor físico no es otra cosa que un archivo con extensión .VB, que son los que la plataforma 
reconoce como archivos con código VB.NET. Podemos tener uno o varios dentro de un proyecto. 

Un contenedor lógico, dicho del modo más simple, es aquel elemento en el entorno de .NET que nos 
permite escribir en su interior declaraciones y procedimientos, que serán accesibles desde otros 
elementos dentro del proyecto actual, o bien desde otros proyectos, en función de su ámbito o 
accesibilidad. 

El entorno de .NET Framework dispone de varios tipos de contenedores lógicos, entre los que se 
encuentran los módulos, clases, interfaces, estructuras, etc. Los espacios de nombres (namespaces) son 
un tipo de contenedor lógico especial, cuya misión consiste en albergar al resto de contenedores 
lógicos; una especie de metacontenedor. La estructura básica de un contenedor lógico se muestra en la 
Figura 71. 

La configuración por defecto en este sentido para VS.NET, establece que cada vez que añadimos un 
nuevo módulo o clase a un proyecto, se crea un nuevo archivo con extensión .VB, que contiene el 
mencionado módulo o clase. El nombre utilizado es el mismo para el archivo y el módulo o clase. Sin 
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embargo, podemos incluir varios contenedores lógicos, de igual o distinto tipo, dentro del mismo 
archivo de código. Ver Figura 72. 


Contenedor logice 

Módulo, Clase, etc. 


Zona de 
declaraciones 

Declaración!. 

Declaración! 

DeclaraciónN 


Sub NombreB() 


End Sub 

Zona 

de 

Function Nombi eC( ) 

procedimientos 

End Sub 


Function NombreC( ) 


End Sub 


Figura 71. Estructura de un contenedor lógico de código. 


Proyecto / Ensamblado 


Inicio. VB 
Module Inicio 


End Module 


Gestión. VB 


Cías* Gestión 


End Ciass 


Class Empleado 

Module Varios 

End Class 

End Module 


General. VB 


Module Cálculos 


Structure OpFechas 


End Module 


End Structure 





Figura 72. Esquema de organización del código en un proyecto VB.NET. 
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7 . Organización y ámbito de los elementos del lenguaje 


En este apartado describiremos las operaciones básicas a realizar, para añadir nuevos módulos de 
código a un proyecto, quitarlos, y agregar otros ya existentes. Lo comentado aquí será igualmente 
válido a la hora de manejar clases en los temas dedicados a la programación orientada a objeto. 


Agregar un nuevo módulo (y archivo) de código 

Deberemos seleccionar en el IDE de VS.NET, la opción de menú Proyecto + Agregar módulo. Esto 
abrirá la caja de diálogo Agregar nuevo elemento, en la que automáticamente aparecerá un nombre 
para el módulo, asignado por el IDE. Podemos emplear dicho nombre o escribir otro distinto. Ver 
Figura 73. 



Figura 73. Agregar un nuevo módulo al proyecto. 


Al pulsar Abrir, se creará un nuevo fichero con el nombre indicado en la caja de diálogo y la extensión 
.VB, que contendrá un módulo también del mismo nombre, dentro del cual podemos empezar a 
escribir código. Ver Figura 74. 


Modulel.vb | TextFilel.txt Module2.vb | 

•A* Module2 (ConsoléApplication 1) 

B Module Module2 

L End Module 

Figura 74. Módulo recién creado. 
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Crear un nuevo módulo dentro de un fichero existente 

Esto es aún más fácil, ya que en esta situación solamente debemos escribir la declaración del módulo 
dentro del fichero de código, utilizando las palabras clave Module...End Module, junto al nombre que 
vamos a dar al módulo. Ver su sintaxis en el Código fuente 155. 


Module NombreModulo 
' código 


End Module 


Código fuente 155 


Debemos tener en cuenta que no es posible anidar módulos, es decir, no podemos declarar un módulo 
dentro de la declaración de un módulo ya existente. Ver Código fuente 156. 


Module NombreModulo 

' esto no es válido y producirá un error 
Module NombreNuevo 
End Module 
End Module 

Código ñiente 156 


Veamos a continuación un ejemplo. En el apartado anterior, hemos creado un nuevo módulo con el 
nombre Module2, creándose al mismo tiempo, un nuevo fichero de código con el nombre 
Module2.VB. Pues bien, para añadir otro módulo más dentro de este fichero de código, al que daremos 
el nombre Cuentas, tan sólo hemos de poner la declaración del nuevo módulo antes o después del 
existente. Ver Figura 75. 


Modulel.vb ¡ TextFilel.txt Module2.vb 
|^Cuentas (ConsoleApplicationl) 

E Module Module2 
l-End Module 
E Module Cuentas 
l-End Module 

Figura 75. Inclusión de un módulo dentro de un archivo de código. 


Con este ejemplo intentamos demostrar que los módulos de código son totalmente independientes del 
archivo físico que los alberga; por tal razón, varios módulos pueden escribirse dentro del mismo 
archivo. 
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Cambiar el nombre de un fichero de código 

Si no queremos que el nombre de un fichero de código sea igual que alguno de los módulos que 
contiene, debemos abrir la ventana Explorador de soluciones, hacer clic derecho sobre el nombre del 
fichero de código, y elegir la opción Cambiar nombre. Esto nos permitirá dar un nuevo nombre al 
fichero .VB que contiene el código. Ver Figura 76. 


Explorador de soluciones - Consolé... -n X 


2 H -J 


Solución 'ConsoleApplicationl' (1 proyecl 
É ¡üf ConsoleApplicationl 
É- Si References 
g) Assemblylnfo.vb 
. g] Modulel.vb 

a 

|j Abrir 

Abrir con... 


c 


o. 

o 

w 

3 


be 


13H Ver código 


9q Deshacer desprotección... 
fl£b Obtener la última versión 


Excluir del proyecto 


Cortar 
Copiar 
X Eliminar 


Cambiar nombre 


i := Propiedades 


Figura 76. Cambiar el nombre de un fichero de código. 


Añadir al proyecto un fichero de código existente 

Si tenemos código de otro proyecto, que nos gustaría utilizar en el proyecto actual, o bien hemos 
escrito código utilizando un editor distinto del proporcionado por VS.NET, podemos añadirlo a 
nuestro proyecto utilizando la opción de menú Proyecto + Agregar elemento existente. Hemos de 
observar que es necesario que el código escrito esté en un fichero con extensión .VB. 

Por ejemplo, he utilizado el Bloc de notas para escribir un módulo que contiene un procedimiento, y lo 
he guardado en un fichero con el nombre MiCodigo.VB. Al utilizar la opción antes mencionada, se 
abrirá una caja de diálogo, con la que navegaré por las carpetas del equipo para localizar el fichero; al 
pulsar el botón Abrir, se añadirá dicho fichero al proyecto. Ver Figura 77. 
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Figura 77. Agregar un fichero de código existente al proyecto. 


Lista desplegable “Nombre de clase”, en el editor de código 

La lista desplegable Nombre de clase, situada en la parte superior izquierda del editor de código, tiene 
dos finalidades principales que describimos a continuación. 

• Mostrar el nombre del módulo sobre el que actualmente trabajamos. Esta información es 
útil cuando estamos escribiendo código en un fichero que tiene varios módulos, de forma que 
siempre podemos saber sobre qué módulo estamos posicionados. 

• Cambiar a otro módulo dentro del mismo fichero de código. Esta operación la realizamos 
en dos pasos. En primer lugar abriremos esta lista desplegable y seleccionaremos el nombre 
del módulo al que vamos a cambiar. Por último, abriremos la lista Nombre de método, y 
elegiremos uno de los procedimientos del módulo sobre el que acabamos de posicionamos, el 
editor de código cambiará entonces a dicho procedimiento. 

La Figura 78 muestra una imagen de esta lista de módulos. 


Module2 (ConsoleApplication 1) 


^Cuentas (ConsoleApplication 1) 


Module2 (ConsoleApplication 1) 




¡ni 


le 


Sub Prueba(ByUal Importe fts Integer, By■ 
Din Contador As Integer 
' mostrar el primer parámetro 
Consolé.WriteLine("Parámetro Importa 
Consolé.WriteLine() 

End Sub 


Figura 78. Lista Nombre de clase, en el editor de código del IDE. 
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El motivo de usar el término clase en lugar de módulo para esta lista, se debe, como veremos en los 
temas sobre programación con objetos, a que todo lo que haremos habitualmente en nuestra labor de 
programación será crear clases, objetos, métodos, propiedades, etc. Por ello la terminología empleada 
en general se aproxima más a las técnicas de programación con objetos que a la programación 
estructurada. 


Excluir y eliminar ficheros de código del proyecto 

Si no queremos que un determinado fichero (con el módulo o módulos que incluye) siga formando 
parte del proyecto, podemos separarlo del mismo abriendo la ventana Explorador de soluciones, y 
haciendo clic derecho sobre el nombre del procedimiento, elegir la opción de menú Proyecto + 
Excluir del proyecto. Esta acción quita el fichero del proyecto pero no lo elimina físicamente. Ver 
Figura 79. 


Explorador de soluciones - Consolé.., -0 X 


:.i T j 


3 Solución 'ConsoleApplicationl' (1 proyedj 

Él §f ConsoleApplicationl 

É (¡ 2 ) References 

Vj Assemblylnfo.vb 

VI IBIBBPSMBjI_ 


G 

■< 

c 


a 

a 


(j Abrir 

Abrir con. 


IT1 Ver código 


Deshacer desprotección... 
Vl¡ Obtener la última versión 


Excluir del proyecto 


X Cortar 
1^=1 Copiar 
X, Eliminar 

Cambiar nombre 


l == Propiedades 


Figura 79. Excluir un fichero del proyecto. 


Para eliminar físicamente el fichero de código, debemos realizar la misma operación descrita antes, 
pero seleccionando en este caso en el menú contextual, la opción Eliminar. 


Reglas de ámbito 

El ámbito o accesibilidad de un elemento declarado en el código, consiste en la capacidad que tenemos 
para utilizar dicho elemento desde otro punto cualquiera del código, ya sea desde el interior del propio 
programa o desde un proyecto extemo compilado como librería de clases (archivo .DLL). 
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Las reglas de ámbito se aplican por un lado a procedimientos y variables, visto el lenguaje desde el 
prisma de la programación estructurada; y por otro lado, estas normas también se aplican a métodos y 
propiedades, visto el lenguaje desde el punto de vista de la programación orientada a objetos. 

En este tema realizaremos una revisión de las cuestiones de ámbito aplicadas a procedimientos y 
variables, dejando el ámbito de métodos y propiedades para los temas sobre objetos. 


r 

Ambito de procedimientos 

El ámbito de procedimientos consiste en la capacidad de poder llamar a un procedimiento desde un 
punto determinado del programa, en función del nivel de acceso definido para dicho procedimiento en 
el momento de su declaración. 

Para especificar el ámbito de un procedimiento, lo haremos mediante una palabra clave o modificador 
de ámbito, anteponiéndolo al tipo de procedimiento (Sub o Function) dentro de la declaración. El 
Código fuente 157 muestra la sintaxis a utilizar. 


ModificadorÁmbito Sub | Function NombreProcedimiento([ListaParámetros]) 

Código fuente 157 


Veamos a continuación, los ámbitos de procedimiento disponibles. 


Público 

Un procedimiento con ámbito público puede ser llamado desde cualquier punto del módulo en el que 
se ha declarado, o desde cualquier otro módulo del proyecto. La palabra clave utilizada como 
modificador de ámbito en este caso es Public. 

En el Código fuente 158 tenemos dos módulos: General y Cálculos, que contienen respectivamente los 
procedimientos Main( ) y Totales( ). Desde Main( ) podemos perfectamente llamar al procedimiento 
Totales(), ya que al haber sido declarado como Public, es accesible desde otro módulo. 


Module General 

Public Sub Main() 

Consolé.WriteLine("Estamos en el módulo General, procedimiento Main") 

' llamar al procedimiento Totales() que está en otro módulo 
Totales (400) 

Consolé.ReadLine() 

End Sub 

End Module 

Module Cálculos 

Public Sub Totales(ByVal Importe As Integer) 

Dim Resultado As Integer 

Consolé.WriteLine("Estamos en el módulo Cálculos, procedimiento Totales") 
Resultado = Importe + 1000 

Consolé.WriteLine("El total obtenido es: {0} " , Resultado) 
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End Sub 
End Module 


Código fuente 158 


Public es el modificador de ámbito por defecto para procedimientos, lo que quiere decir que si no lo 
utilizamos, al crear un procedimiento, su ámbito será público por defecto. 

Es posible escribir varios procedimientos con el mismo nombre y ámbito público en distintos 
módulos. Cuando esto ocurra, al llamar al procedimiento se ejecutará por defecto el que más próximo 
esté desde el módulo que ha sido llamado. En el caso de que necesitemos ejecutar el procedimiento 
que se encuentre en otro módulo deberemos hacer la llamada utilizando la sintaxis descrita en el 
Código fuente 159. 


NombreModulo.NombreProcedimiento( ) 

Código fuente 159 


Veamos un ejemplo en el Código fuente 160. 


Module General 

Public Sub Main() 

' en esta llamada, se ejecutará el procedimiento Totales() 

' que está en este mismo módulo 
Totales (400) 

1 en esta llamada, como especificamos el nombre del módulo 
1 en primer lugar, se ejecuta el procedimiento Totales() 

1 que está en el módulo Cálculos 
Cálculos.Totales(280) 

Consolé.ReadLine() 

End Sub 

Public Sub Totales(ByVal Importe As Integer) 

' en esta versión del procedimiento, 

1 multiplicamos el parámetro por un valor 
Dim Resultado As Integer 

Consolé.WriteLine("Estamos en el módulo General, procedimiento Totales") 
Resultado = Importe * 4 

Consolé.WriteLine("El total obtenido es: {o}", Resultado) 

End Sub 

End Module 

Module Cálculos 

Public Sub Totales(ByVal Importe As Integer) 

' en esta versión del procedimiento, 

1 sumamos un valor al parámetro 
Dim Resultado As Integer 

Consolé.WriteLine("Estamos en el módulo Cálculos, procedimiento Totales") 
Resultado = Importe + 1000 

Consolé.WriteLine("El total obtenido es: {o}", Resultado) 

End Sub 
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End Module 


Código fuente 160 


Privado 

Un procedimiento con ámbito privado sólo puede ser llamado desde el propio módulo en el que se ha 
declarado. La palabra clave utilizada como modificador de ámbito en este caso es Prívate. Veamos un 
ejemplo en el Código fuente 161. 


Module General 

Public Sub Main() 

' podemos ejecutar el procedimiento Totales() 

1 ya que tiene ámbito público 
Totales (400) 

Dim MiNumero As Integer 

1 error, la función ObtenerNumero tiene ámbito privado, 

1 dentro del módulo Cálculos, 

' por lo que no es accesible desde este módulo 
MiNumero = ObtenerNumero() 

Consolé.ReadLine() 

End Sub 

End Module 

Module Cálculos 

Public Sub Totales(ByVal Importe As Integer) 

Dim Resultado As Integer 

Consolé.WriteLine("Estamos en el módulo Cálculos, procedimiento Totales") 

1 podemos llamar desde aquí a la función ObtenerNumero 
1 ya que estamos en el mismo módulo 
Resultado = Importe + ObtenerNumero() 

Consolé.WriteLine("El total obtenido es: {0}", Resultado) 

End Sub 

Prívate Function ObtenerNumero() As Integer 

Consolé.WriteLine("Estamos en el módulo Cálculos," & _ 

" procedimiento ObtenerNumero") 

Return 18 
End Function 

End Module 

Código fuente 161 


En el anterior fuente, desde Main( ) no podemos llamar a la función ObtenerNumero( ), ya que dicha 
función tiene ámbito Private y reside en un módulo distinto. 

Sin embargo, sí podemos llamarla desde el procedimiento Totales(), ya que en ese caso, la llamada se 
realiza dentro del mismo módulo de código. 
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r 

Ambito de variables 

El ámbito de variables consiste en la capacidad de acceso que tenemos hacia una variable, de forma 
que podamos obtener su valor, así como asignarlo. Para determinar su nivel de accesibilidad, aquí 
intervienen, además de los modificadores de ámbito, el lugar o nivel de emplazamiento de la variable 
dentro del código. 

Respecto a los modificadores de ámbito, disponemos de las mismas palabras clave que para los 
procedimientos: Public y Prívate, y su sintaxis de uso la vemos en el Código fuente 162. 


ModificadorÁmbito [Dim] NombreVariable As TipoDato 

Código fuente 162 


En función del punto de código en el que sea declarada una variable, podremos omitir el uso de la 
palabra clave Dim para realizar dicha declaración. 

A continuación se describen los diferentes tipos de ámbito para variables, en función de su lugar de 
declaración. 


Ámbito a nivel de procedimiento 

Una variable declarada dentro del cuerpo de un procedimiento se dice que tiene un ámbito local o a 
nivel de procedimiento, no pudiendo ser accedida por otro código que no sea el de dicho 
procedimiento. Ver Código fuente 163. 


Public Sub Main() 

1 declaramos una variable que tiene ámbito 
' a nivel de este procedimiento 
Dim Nombre As String 

Nombre = "Hola" 

Consolé.WriteLine("Introducir un valor") 
Nombre &= " " & Consolé.ReadLine() 

End Sub 

Public Sub Manipular() 

' si intentamos desde este procedimiento 
1 acceder a la variable Nombre del 
1 procedimiento Main(), se produce un error 
Nombre = "nuevo valor" 

End Sub 

Código ñiente 163 


En el ejemplo anterior, la variable Nombre puede ser manipulada dentro del procedimiento Mainf ), y 
cualquier intento de acceder a ella desde otro procedimiento provocará un error. 


167 






Fundamentos de programación con Visual Basic .NET 


© Grupo EIDOS 


Ámbito a nivel de bloque 

Una variable declarada dentro de una estructura de control se dice que tiene ámbito local a nivel de 
bloque, siendo accesible sólo dentro del código que está contenido en la estructura. Ver Código fuente 
164. 


Public Sub Main() 

1 variables con ámbito a nivel de procedimiento 
Dim MiNumero As Integer 
Dim Total As Integer 

Consolé.WriteLine("Introducir un número") 

MiNumero = Consolé.ReadLine() 

If MiNumero > 0 Then 

1 variable con un ámbito a nivel de bloque 
' sólo es accesible dentro de esta estructura If 
Dim Calculo As Integer 

Consolé.WriteLine("Introducir otro número para sumar") 
Calculo = Consolé.ReadLine() 

MiNumero += Calculo 
End If 

Consolé.WriteLine("El resultado total es: {0}", MiNumero) 

1 error, la variable Calculo no es accesible desde aquí 
Total = 150 + Calculo 

Consolé.ReadLine() 

End Sub 

Código fuente 164 


En este punto debemos aclarar que el ámbito dentro de un bloque se entiende como la parte de la 
estructura en la que ha sido declarada la variable. Por ejemplo, en una estructura lf...End If con Else, si 
declaramos una variable a continuación de If, dicha variable no será accesible desde el bloque de 
código que hay a partir de Else. Ver Código fuente 165. 


If MiNumero > 0 Then 

1 variable con un ámbito a nivel de bloque 
' sólo es accesible dentro de esta estructura If 
Dim Calculo As Integer 


Else 

1 la variable Calculo no es accesible desde aquí 


End If 


Código fuente 165 
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Ámbito a nivel de módulo 

Una variable declarada en la zona de declaraciones de un módulo, es decir, fuera de cualquier 
procedimiento, pero dentro de las palabras clave Module...End Module, y utilizando como palabra 
clave Dim o Prívate, se dice que tiene ámbito a nivel de módulo. 

Aunque tanto Dim como Prívate son perfectamente válidas para declarar variables a nivel de módulo, 
se recomienda usar exclusivamente Prívate; de este modo facilitamos la lectura del código, reservando 
las declaraciones con Dim para las variables con ámbito de procedimiento, y las declaraciones con 
Prívate para el ámbito de módulo. 

En el ejemplo del Código fuente 166 declaramos la variable Nombre dentro del módulo, pero fuera de 
cualquiera de sus procedimientos, esto hace que sea accesible desde cualquiera de dichos 
procedimientos, pero no desde un procedimiento que se halle en otro módulo. 


Module General 

'Dim Nombre As String <- esta declaración es perfectamente válida... 

Private Nombre As String 1 ...pero se recomienda declarar con Private 

Public Sub Main() 

Consolé.WriteLine("Procedimiento Main()") 

Consolé.WriteLine("Asignar valor a la variable") 

Nombre = Consolé.ReadLine() 

Consolé.WriteLine("El valor de la variable en Main() es: {0}", Nombre) 
Manipular() 

MostrarValor() 

Consolé.ReadLine() 

End Sub 

Public Sub Manipular() 

Consolé.WriteLine("Procedimiento Manipular()") 

Consolé.WriteLine("Asignar valor a la variable") 

Nombre = Consolé.ReadLine() 

Consolé.WriteLine("El valor de la variable en Manipular() es: {0}", Nombre) 
End Sub 

End Module 

Module Cálculos 

Public Sub MostrarValor() 

1 error, no se puede acceder desde este módulo 
1 a la variable Nombre, que está declarada Private 
1 en el módulo General 

Consolé.WriteLine("Procedimiento MostrarValor()") 

Nombre = "Antonio" 

Consolé.WriteLine("Valor de la variable Nombre: {0} " , Nombre) 

End Sub 
End Module 

Código fuente 166 
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Para comprobar el valor de estas variables a través del depurador, tenemos que utilizar la ventana 
Automático, que podemos abrir con el menú Depurar + Ventanas + Automático, o las teclas [CTRL + 
ALT + V, A], Ver Figura 80. 


Automático 

Nombre 

Valor 

Tipo 

Nombre 



Figura 80. Ventana Automático, del Depurador. 


Ámbito a nivel de proyecto 

Una variable declarada en la zona de declaraciones de un módulo utilizando la palabra clave Public, se 
dice que tiene ámbito a nivel del proyecto, es decir, que es accesible por cualquier procedimiento de 
cualquier módulo que se encuentre dentro del proyecto. 

Si tomamos el fuente anterior y declaramos como Public la variable Nombre, ahora sí podremos 
manipularla desde cualquier punto de la aplicación. Ver Código fuente 167. 


Module General 

' esta variable será accesible 
1 desde cualquier lugar del proyecto 
Public Nombre As String 

Public Sub Main() 

Consolé.WriteLine("Procedimiento Main()") 

Consolé.WriteLine("Asignar valor a la variable") 

Nombre = Consolé.ReadLine() 

Consolé.WriteLine("El valor de la variable en Main() es: {o}", Nombre) 
Manipular() 

MostrarValor() 

Consolé.ReadLine() 

End Sub 

Public Sub Manipular() 

Consolé.WriteLine("Procedimiento Manipular()") 

Consolé.WriteLine("Asignar valor a la variable") 

Nombre = Consolé.ReadLine() 

Consolé.WriteLine("El valor de la variable en Manipular!) es: {0}", Nombre) 
End Sub 

End Module 

Module Cálculos 

Public Sub MostrarValor() 

1 al haber declarado la variable Nombre 

1 como Public en el módulo General, podemos acceder a ella 
' desde un módulo distinto al que se ha declarado 
Consolé.WriteLine("Procedimiento MostrarValor()") 

Nombre = "Antonio" 

Consolé.WriteLine("Valor de la variable Nombre: {o}", Nombre) 

End Sub 
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End Module 


Código fuente 167 


Periodo de vida o duración de las variables 


El periodo de vida de una variable es el tiempo durante el cual la variable está activa, ocupando el 
espacio de memoria que le ha asignado el entorno de ejecución de .NET Framework, y disponible para 
ser utilizada. El periodo de vida de una variable depende de su ámbito, de forma que podemos 
clasificarlos como se muestra a continuación. 


• Ámbito de bloque. El periodo de vida de estas variables se desarrolla desde el momento en 
que son declaradas dentro del bloque y hasta que dicho bloque finaliza. 

• Ámbito de procedimiento. Para estas variables, su periodo de vida está comprendido entre el 
momento en que son declaradas y hasta que la ejecución del procedimiento termina. 

• Ámbito a nivel de módulo y proyecto. En este caso, el periodo de vida de la variable va 
desde el comienzo de la ejecución de la aplicación y hasta que esta termina. 


Variables Static 

Este tipo de variables se caracterizan por el hecho de que conservan su valor después de finalizar el 
procedimiento en el que han sido declaradas. Se deben declarar utilizando la palabra clave Static, 
pudiendo opcionalmente omitir la palabra clave Dim. El Código fuente 168 muestra su sintaxis. 


Static [Dim] Importe As Integer 


Código ñiente 168 


Cuando declaramos una variable normal dentro de un procedimiento, cada vez que llamamos al 
procedimiento, dicha variable es inicializada. El ejemplo del Código fuente 169, en cada llamada al 
procedimiento, se inicializa la variable y le sumamos un número, por lo que la variable siempre 
muestra el mismo valor por la consola. 


Public Sub Main() 

Verificar("Primera") ' en esta llamada se muestra 7 

Verificar("Segunda") ' en esta llamada se muestra 7 

Verificar("Tercera") ' en esta llamada se muestra 7 

Consolé.ReadLine() 

End Sub 

Public Sub Verificar(ByVal OrdenLlamada As String) 

1 cada vez que se ejecuta este procedimiento 
1 la variable Importe se inicializa a 5 
Dim Importe As Integer = 5 

Importe += 2 

Consolé.WriteLine("{0} llamada al procedimiento, la variable contiene {1}", 
OrdenLlamada, Importe) 
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End Sub 


Código fuente 169 


Pero cambiemos el modo de declaración de la variable Importe, añadiéndole Static. En este caso, la 
primera vez que se ejecuta el procedimiento, se inicializa la variable con el valor 5, pero al terminar la 
ejecución, la variable no se destruye, sino que en la siguiente ejecución conserva el valor, que 
podemos ir incrementando en cada llamada. Ver Código fuente 170. 


Public Sub Main() 

Verificar("Primera") ' en esta llamada se muestra 7 

Verificar("Segunda") ' en esta llamada se muestra 9 

Verificar("Tercera") ' en esta llamada se muestra 11 

Consolé.ReadLine() 

End Sub 

Public Sub Verificar(ByVal OrdenLlamada As String) 

1 declarar variable con el modificador Static, 

1 en la primera llamada toma el valor inicial de 5, 

' las sucesivas llamadas no ejecutarán esta línea 
Static Dim Importe As Integer = 5 

Importe += 2 

Consolé.WriteLine("{0} llamada al procedimiento, la variable contiene {1}", 
OrdenLlamada, Importe) 

End Sub 

Código ñiente 170 


Las variables Static por lo tanto, tienen un periodo de vida que abarca todo el tiempo de ejecución del 
programa, mientras que su ámbito es a nivel de procedimiento o bloque, ya que también pueden 
crearse dentro de una estructura de control. 


Convenciones de notación 

Las convenciones de notación consisten en una serie de normas no oficiales a la hora de declarar 
identificadores en el código, que facilitan su interpretación y mantenimiento. 

Si bien esto no es inicialmente necesario, ni la herramienta de programación obliga a ello, en la 
práctica se ha demostrado que una serie de normas a la hora de escribir el código redundan en una 
mayor velocidad de desarrollo y facilidad de mantenimiento de la aplicación. Siendo útil no sólo en 
grupos de trabajo, sino también para programadores independientes. 

Seguidamente describiremos una serie de normas de codificación para variables y constantes, que no 
son en absoluto obligatorias a la hora de escribir el código del programa, pero si pretenden concienciar 
al lector de la necesidad de seguir unas pautas comunes a la hora de escribir dicho código, de manera 
que al compartirlo entre programadores, o cuando tengamos que revisar una aplicación desarrollada 
tiempo atrás, empleemos el menor tiempo posible en descifrar lo que tal o cual variable significa en el 
contexto de un procedimiento. 
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Variables 

El formato empleado para la notación de variables se basa en utilizar un carácter para indicar el ámbito 
de la variable, a continuación uno o dos caracteres para especificar el tipo de dato, y finalmente el 
resto del nombre que daremos a la variable, que llamaremos cueipo de la variable. Ver el Código 
fuente 171. 


<Ámbito><TipoDato><Cuerpo> 


Código fuente 171 


La Tabla 19 muestra los valores para ámbito. 


Carácter 

Ámbito que define 

1 

Local 

m 

Módulo (privado) 

P 

Proyecto (público) 


Tabla 19. Caracteres para indicar el ámbito en los nombres de variables. 
La Tabla 20 muestra los valores para el tipo de dato. 


Carácter 

Tipo de dato que define 

b 

Boolean 

by 

Byte 

c 

Char 

dt 

Date 

de 

Decimal 

db 

Double 

i 

Integer 

1 

Long 

sh 

Short 

sg 

Single 
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0 

Object 

s 

String 


Tabla 20. Caracteres para indicar el tipo de dato en los nombres de las variables. 


Para el cuerpo de la variable se utilizará WordMixing, que consiste en una técnica en la cual 
empleamos, si es necesario, varias palabras juntas para describir mejor el contenido de la variable. 
Veamos unos ejemplos en el Código fuente 172. 


1 variable local de tipo integer 
liCodAcceso 

1 variable a nivel de módulo de tipo string 
msNombreUsuario 

1 variable a nivel de proyecto de tipo fecha 
pdtDiaAlta 

Código fuente 172 


En el caso de objetos creados por el programador, utilizaremos como prefijo para el tipo de dato, el 
carácter “o”, o bien tres caracteres indicativos de la clase. Ver el Código fuente 173. 


1 variable local cuyo tipo es un objeto creado por el programador 
Dim loEmpleado As Empleado 
Dim lempEmpleado As Empleado 

Código ñiente 173 


Constantes 

En este caso seguiremos el mismo formato de notación que para las variables en lo que respecta al 
ámbito y tipo de dato. El cueipo de la constante sin embargo, lo escribiremos en mayúsculas, 
separando las distintas palabras utilizando el carácter de guión bajo ( _ ) en vez de WordMixing. 
Código fuente 174. 


1 constante a nivel de proyecto de tipo integer 
piTIPO_IVA 

' constante a nivel de módulo de tipo string 
msCOLOR INICIAL 


Código fuente 174 
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Funciones del lenguaje 


La función como elemento de soporte al programador 

Cada lenguaje dispone de un grupo de funciones de apoyo, para ayudar al programador en su trabajo 
cotidiano. Las versiones anteriores de Visual Basic contenían un gran número de funciones para 
realizar operaciones aritméticas, manipular cadenas, fechas, etc. 

VB.NET también tiene funciones para las operaciones antes comentadas. No obstante, debido a la 
orientación a objetos sobre la que está construida la plataforma .NET, la gran potencia a la hora de 
resolver cualquier situación la encontraremos en el gran número de objetos proporcionados por el 
entorno para resolver las más variadas situaciones, y que veremos en los temas dedicados a 
programación orientada a objeto. Siendo recomendado en la medida de lo posible, el uso de los objetos 
de .NET Framework en detrimento de las funciones, ya que el rendimiento en ejecución será más 
óptimo al emplear objetos. 

En este tema y organizadas por categorías, vemos una pequeña muestra de las funciones disponibles 
en VB.NET. Consulte el lector la documentación de la plataforma, para obtener información más 
detallada de todas las funciones disponibles. 


Funciones de comprobación de tipos de datos 

Si tenemos desactivada la comprobación de tipos con Option Strict, al realizar asignaciones de valores 
a variables, el propio compilador es quien se encarga de realizar las conversiones oportunas a los tipos 
de datos adecuados. En el ejemplo del Código fuente 175, al asignar una cadena que contiene un 
número a una variable Integer, se realiza automáticamente la conversión a dicho tipo numérico. 
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Dim UnaCadena As String 
Dim MiNum As Integer 

UnaCadena = "125" 

MiNum = UnaCadena 

Código fuente 175 


Sin embargo, si en el anterior ejemplo, la variable de cadena contuviera un valor que el compilador no 
pudiera convertir a número, se produciría un error de tipos. Ver el Código fuente 176. 


Dim UnaCadena As String 
Dim MiNum As Integer 

UnaCadena = "prueba" 

MiNum = UnaCadena 

Código ñiente 176 


El mensaje de error en tiempo de ejecución sería como el que muestra la Figura 81. 



Figura 81. Mensaje de error de conversión de tipos. 


Para este tipo de situaciones, en las que necesitamos comprobar si determinada variable o expresión 
contienen un valor numérico, fecha, etc., el lenguaje nos proporciona algunas funciones, con las que 
podemos comprobar el tipo de dato, para evitar posibles errores. 


IsNumeric() 

Esta función devuelve un valor lógico indicando si la expresión que pasamos como parámetro contiene 
un número o una cadena que pueda ser convertida a número. Ver el Código fuente 177. 


Public Sub Main() 

Dim Valor As Object 
Dim Total As Integer 
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Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

If IsNumeric(Valor) Then 
Total = Valor + 100 

Consolé.WriteLine("Resultado: {0}", Total) 

Else 

Consolé.WriteLine("El valor introducido no es numérico") 
End If 

Consolé.ReadLine() 

End Sub 

Código ñiente 177 


IsDate() 

Esta función devuelve un valor lógico indicando si la expresión que pasamos como parámetro contiene 
una fecha o una cadena que pueda ser convertida a fecha. Ver el Código fuente 178. 


Public Sub Main() 

Dim Valor As Object 
Dim UnaFecha As Date 

Consolé.WriteLine("Introducir una fecha") 

Valor = Consolé.ReadLine() 

If IsDate(Valor) Then 
UnaFecha = Valor 

Consolé.WriteLine("La fecha es: {0}", UnaFecha) 

Else 

Consolé.WriteLine("El valor introducido no es una fecha") 
End If 

Consolé.ReadLine() 

End Sub 

Código ñiente 178 


IsArray() 

Esta función devuelve un valor lógico indicando si la expresión que pasamos como parámetro contiene 
un array. Ver el Código fuente 179. 


Public Sub Main() 

Dim Colores() As String = {"Verde", "Azul", "Rojo"} 

Verificar (Colores) 

Verificar("prueba") 

Consolé.ReadLine() 

End Sub 

Public Sub Verificar(ByVal ValorPasado As Object) 

' comprobar si el parámetro contiene un array 
If IsArray(ValorPasado) Then 
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Consolé.WriteLine("El parámetro pasado es un array") 

Else 

Consolé.WriteLine("El parámetro pasado no es un array") 
End If 
End Sub 


Código fuente 179 


Funciones numéricas 


Int(), Fix() 

1 Sintaxis 
Int(Número) 

Fix(Número) 

Estas funciones devuelven la parte entera del parámetro Número. La diferencia entre ambas reside en 
que cuando el parámetro pasado es negativo, lnt( ) devuelve el entero negativo menor o igual que 
Número, mientras que Fix( ) devuelve el entero negativo mayor o igual que Número. Ver el Código 
fuente 180. 


Dim Resultado As 

Integer 


Resultado = 

Int ( 

66.87) 1 

66 

Resultado = 

Fix ( 

66.87) 1 

66 

Resultado = 

Int ( 

-66.87) 1 

-67 

Resultado = 

Fix ( 

-66.87) 1 

-66 


Código fuente 180 


Randomize() 

1 Sintaxis 
Randomize([Número] ) 

fnicializa el generador de números aleatorios, que utilizaremos posteriormente en la función Rnd( ). 
Opcionalmente recibe un número como parámetro que sirve al generador como valor inicial o semilla 
para la creación de estos números. 


Rnd() 


1 Sintaxis 
Rnd([Número]) 

Devuelve un número aleatorio de tipo Single, que será menor que 1, pero mayor o igual a cero. 

Podemos, opcionalmente, variar el modo de generación del número pasando un valor al parámetro de 
esta fünción. En fünción de si el parámetro es mayor, menor de cero, o cero, el comportamiento de 
Rnd( ) a la hora de generar el número será diferente. Ver el Código fuente 181. 
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Dim Contador As Integer 
Dim Aleatorio As Single 

Randomize() 

For Contador = 1 To 10 
Aleatorio = Rnd() 

Consolé.WriteLine("Número generado: {0}", Aleatorio) 

Next 

Consolé.ReadLine() 

Código ñiente 181 


El anterior código produce una salida similar a la mostrada en la Figura 82. 


I K:\CursoVBNET\TeHto\tlOLenguaje\Ci 


Numero 

Número 

Número 

Número 

Número 

Número 

Número 

Número 

Número 

Número 


generado 

generado 

generado 

generado 

generado 

generado 

generado 

generado 

generado 

generado 



0,706402 

0,4058605 

0,337209 

0,8914912 

0,8711619 

0,9420985 

0,8869424 

0,01694918 

0,4208133 

0,7650682 


Figura 82. Generación de números aleatorios con Rnd(). 


Si necesitamos que el número aleatorio esté comprendido en un intervalo de números enteros, 
utilizaremos la fórmula que vemos en el Código fuente 182 para generarlo. 


Int((LímiteSuperior - Límitelnferior + 1) * Rnd() + Límitelnferior) 

Código fuente 182 


El ejemplo del Código fuente 183 crea números aleatorios comprendidos entre el intervalo de los 
números 7 y 12. 


Dim Contador As Integer 
Dim Aleatorio As Single 

Randomize() 

For Contador = 1 To 10 

Aleatorio = Int((12 -7+1) * Rnd() + 7) 

Consolé.WriteLine("Número generado: {0}", Aleatorio) 

Next 

Consolé.ReadLine() 
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Código fuente 183 


Funciones de cadena de caracteres 

Len() 

1 Sintaxis 
Len(Cadena) 

Devuelve un número con la longitud de la cadena pasada como parámetro. Ver el Código fuente 184. 


Dim Longitud As Integer 

Longitud = Len("comprobar cuantos caracteres hay") 

Consolé.WriteLine("La cadena tiene {0} caracteres", Longitud) 1 32 

Código ñiente 184 


Space() 

1 Sintaxis 
Space(Número) 

Devuelve una cadena de espacios en blanco, de una longitud igual al número pasado como parámetro. 
Ver el Código fuente 185. 


Dim ConEspacios As String 

ConEspacios = "Hola" & Space(7) & "a todos" 

Consolé.WriteLine("La cadena con espacios tiene el valor:" & 
ControlChars.CrLf & ConEspacios) ' Hola a todos 

Código fuente 185 


InStr() 

1 Sintaxis 

InStr([Comienzo, ]CadenaBuscar, CadenaBuscada [, TipoComparación]) 

Busca dentro de CadenaBuscar la cadena contenida en el parámetro CadenaBuscada. Opcionalmente 
podemos establecer en Comienzo, la posición en la que comienza la búsqueda y el tipo de 
comparación (texto, binaria) en el parámetro TipoComparación. Ver el Código fuente 186. 


Dim CadBuscar As String 
Dim CadBuscada As String 
Dim PosComienzo As Integer 

CadBuscar = "El castillo del bosque" 
PosComienzo = InStr(CadBuscar, "tillo") 
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Consolé.WriteLine("La posición de comienzo de la cadena encontrada es: {o}", 
PosComienzo) ' 7 


Código fuente 186 


InStrRev() 

1 Sintaxis 

InStrRev(CadenaBuscar, CadenaBuscada [, Inicio] [, TipoComparación]) 

Al igual que lnStr( ), esta función busca dentro de CadenaBuscar la subcadena del parámetro 
CadenaBuscada, pero comenzando en este caso por el final. Ver el Código fuente 187. 


Dim CadBuscar As String 

Dim Posición As Integer 


CadBuscar = "El castillo del bosque" 
Posición = InStrRev(CadBuscar, "el") 

1 14 


Código fuente 187 


StrComp() 

1 Sintaxis 

StrComp(Cadenal, Cadena [, TipoComparación]) 

Compara dos cadenas devolviendo un valor numérico identificativo del resultado. Los valores posibles 
son los siguientes: 

• 0. Las dos cadenas son iguales 

• -1. Los valores (códigos de carácter) de Cadenal son menores que los de Cadena2 

• 1. Los valores (códigos de carácter) de Cadenal son mayores que los de Cadena2 

Los resultados pueden variar en función de si utilizamos una comparación textual o binaria mediante 
el último parámetro de la función. Ver el Código fuente 188. 


Dim Resultado As Integer 

Resultado = StrComp("hola", 

"hola") 

' 0 

Resultado = StrComp! 

; "HOLA", 

"hola") 

' -1 

Resultado = StrCompI 

("hola", 

"HOLA" ) 

' 1 


Código Líente 188 


Left() 

1 Sintaxis 
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Left(Cadena, Longitud) 

Esta función extrae, comenzando por la parte izquierda de Cadena, una subcadena con el número de 
caracteres indicado por el parámetro Longitud. 


Right() 


1 Sintaxis 

Right(Cadena, Longitud) 

Esta función extrae, comenzando por la parte derecha de Cadena, una subcadena con el número de 
caracteres indicado por el parámetro Longitud. 

El Código fuente 189 muestra ejemplos de Left() y Right(). 


Dim Cadlzquierda As String 

Dim CadDerecha As String 

Cadlzquierda = Left("Especial", 3) 
Consolé.WriteLine("Resultado de la 

función 

Left() : 

{0}", 

Cadlzquierda) 

' Esp 

CadDerecha = Right("Especial", 3) 
Consolé.WriteLine("Resultado de la 

función 

Right(): 

: {0}", 

, CadDerecha) 

' ial 


Código fuente 189 


Mid() 


Mid tiene dos formas de uso, como función y como instrucción. 

' Sintaxis (función) 

Mid(Cadena, Inicio [, Longitud]) 

Mid utilizado como función, extrae de Cadena, comenzando en la posición Inicio, una subcadena. 
Opcionalmente podemos utilizar el parámetro Longitud, para indicar el tamaño de la subcadena. En 
caso de no utilizar este último parámetro, la subcadena se obtendrá hasta el final. Ver Código fuente 
190. 


Dim MiCadena As String 

Dim SubCadena As String 




MiCadena = "El bosque encantado" 

SubCadena = Mid(MiCadena, 6) 

Consolé.WriteLine("Subcadena hasta el final: 

{o}", SubCadena) 

' sque encantado 

SubCadena = Mid(MiCadena, 6, 
Consolé.WriteLine("Subcadena 

3) 

de 3 caracteres: 

{o}", SubCadena) 

' squ 


Código fuente 190 


' Sintaxis (instrucción) 

Mid(Cadena, Inicio [, NumCarReemplazar]) = CadenaReemplazo 
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Mid utilizado como instrucción función, reemplaza en Cadena, comenzando por la posición Inicio, la 
cadena asignada en CadenaReemplazo. Podemos opcionalmente, indicar cuántos caracteres a 
reemplazar en NumCarReemplazar. Ver el Código fuente 191. 


Dim Cadena As String 

Cadena = "El bosque encantado" 

Mid(Cadena, 4, 5) = "teclado" ' Cadena contiene -> "El teclae encantado" 

Código fuente 191 


Replace() 

1 Sintaxis 

Replace(Cadena,CadOrigen,CadNueva [,Inicio] [,Sustituciones] 

[,TipoComparación] ) 

Esta función toma la cadena situada en el primer parámetro y busca la cadena CadOrigen, sustituyendo 
las ocurrencias encontradas por la cadena CadNueva. Opcionalmente, el parámetro Inicio especifica la 
posición en la que comenzará la sustitución; el parámetro Sustituciones indica el número de 
sustituciones a realizar; y TipoComparación indica como se realizarán las comparaciones (texto, 
binaria). Veamos unos ejemplos en el Código fuente 192. 


Dim MiCadena As String 
Dim CadSustituida As String 

MiCadena = "Este coche es especial" 

CadSustituida = Replace(MiCadena, "es", "xx") 

1 resultado: Este coche xx xxpecial 

Consolé.WriteLine("Resultado del reemplazo en la cadena: {0} " , CadSustituida) 

1 en el anterior ejemplo los dos primeros caracteres 
1 no se sustituyen porque no se ha especificado el tipo 
1 de comparación, que a continuación sí indicaremos 

CadSustituida = Replace(MiCadena, "es", "xx", , , CompareMethod.Text) 

' resultado: xxte coche xx xxpecial 

1 ahora sí se han sustituido todas las ocurrencias de "es" 

Consolé.WriteLine("Resultado del reemplazo en la cadena: {0}", CadSustituida) 

Código fuente 192 


LTrim(), RTrim(), Trim() 

1 Sintaxis 
LTrim(Cadena) 

RTrim(Cadena) 

Trim(Cadena) 

Estas funciones eliminan los espacios en blanco de una cadena. La eliminación será a la izquierda en 
el caso de LTrimf ), a la derecha en el caso de RTrim(), y a ambos lados con Trim( ). Ver el Código 
fuente 193. 
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Dim CadEspacios As String 
Dim CadResultante As String 
CadEspacios = " Barco " 

CadResultante = LTrim(CadEspacios) 1 "Barco 

CadResultante = RTrim(CadEspacios) ' " Barco" 
CadResultante = Trim(CadEspacios) 1 "Barco" 

Código ñiente 193 


UCase(), LCase() 

1 Sintaxis 
UCase(Cadena) 

LCase(Cadena) 

Estas funciones, convierten la cadena pasada como parámetro a mayúsculas y minúsculas 
respectivamente. Ver el Código fuente 194. 


Dim Cadena As String 
Dim CadMay As String 
Dim CadMin As String 

Cadena = "Vamos a Convertir En Mayúsculas Y MinúscuLAS" 

CadMay = UCase(Cadena) ' VAMOS A CONVERTIR EN MAYÚSCULAS Y MINÚSCULAS 
CadMin = LCase(Cadena) ' vamos a convertir en mayúsculas y minúsculas 

Consolé.WriteLine("Conversión a mayúsculas: {o}", CadMay) 

Consolé.WriteLine("Conversión a minúsculas: {o}", CadMin) 

Código ñiente 194 


StrConv() 

1 Sintaxis 

StrConv(Cadena, TipoConversión [,IDLocal]) 

Realiza una conversión de la cadena pasada como parámetro, utilizando algunos de los valores de la 
enumeración TipoConversión. Opcionalmente podemos pasar también un valor correspondiente al 
identificador local del sistema. Ver el Código fuente 195. 


Dim MiCadena As String 
Dim Conversión As String 

MiCadena = "el tren llegó puntual" 

1 convertir a mayúscula 

Conversión = StrConv(MiCadena, VbStrConv.UpperCase) 
1 convertir a minúscula 

Conversión = StrConv(MiCadena, VbStrConv.LowerCase) 
1 convertir a mayúscula la primera letra 
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1 de cada palabra 

Conversión = StrConv(MiCadena, VbStrConv.ProperCase) 

Código fuente 195 


Split() 

1 Sintaxis 

Split(Cadena [, Delimitador] [, Subcadenas] [, TipoComparación]) 

Toma el contenido de Cadena y crea un array de cadenas, utilizando el carácter contenido en 
Delimitador para calcular la cantidad de elementos que contendrá el array. Si no se utiliza 
Delimitador, se emplea el espacio en blanco como delimitador por defecto. 

El parámetro Subcadenas nos permite indicar cuántas subcadenas va a contener el array, pudiendo 
determinar cómo se va a realizar la comparación mediante TipoComparación. 

Veamos un ejemplo en el Código fuente 196. 


Dim Cadena As String 
Dim SubCad() As String 
Dim Elemento As String 

Cadena = "Coche azul, deportivo, turbo inyección" 
SubCad = Split(Cadena, ",") 

For Each Elemento In SubCad 

Consolé.WriteLine(Elemento) 

Next 

Código fuente 196 


Join() 

1 Sintaxis 

Join(ArrayCad()[, Delimitador]) 

Esta función realiza la operación inversa a Split, toma un array de cadenas y lo transforma a una única 
cadena. 

Si utilizamos el parámetro Delimitador, los elementos de ArrayCad se concatenarán con el carácter de 
dicho parámetro. Si este valor es una cadena vacía, todos los elementos se concatenarán sin 
separación. En el caso de no emplear Delimitador, se utiliza un espacio en blanco. Ver el Código 
fuente 197. 


Dim Palabras() As String = {"Esto", "es", "una", "prueba"} 
Dim Resultado As String 

Resultado = Join(Palabras) ' Esto es una prueba 

Código ñiente 197 
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Format() 

1 Sintaxis 

Format(Expresión [,CadenaFormato] [,PrimerDíaSemana] 

[,PrimeraSemanaAño]) 

Formatea la expresión pasada en el primer parámetro, empleando de forma opcional una cadena para 
especificar el tipo de formateo a realizar. Si el valor a formatear es una fecha, podemos utilizar los dos 
últimos parámetros para especificar el primer día de la semana y la primera semana del año; estos dos 
últimos parámetros son enumeraciones, cuyos valores aparecen automáticamente al asignar su valor. 
Consulte el lector, la documentación de ayuda para más información. 

Como cadena de foimato, podemos utilizar los nombres predefinidos de foimato, o una serie de 
caracteres especiales, tanto para formateo de números como de fechas. En lo que respecta a los 
nombres predefinidos, la Tabla 21 muestra algunos de los utilizados. 


Nombre de formato 

Descripción 

General Date 

Muestra una fecha con el formato largo del 
sistema. 

Short Date 

Muestra una fecha empleando el formato corto del 
sistema. 

Short Time 

Muestra un valor horario con el formato corto del 
sistema. 

Standard 

Muestra un número utilizando los caracteres de 
separador de miles y decimales. 

Currency 

Muestra un número con los caracteres 
correspondientes a la moneda establecida en la 
configuración regional del sistema. 

Percent 

Muestra un número multiplicado por 100 y con el 
carácter de tanto por ciento. 


Tabla 21. Nombres de formato para la función Format( ). 


El Código fuente 198 muestra algunos ejemplos de formateo con nombre 


Dim MiFecha As Date 

Dim MiNumero As Double 

Dim ValorFormato As String 



MiFecha = #7/19/2002 6:25:00 PM# 

MiNumero = 1804 


ValorFormato = Format(MiFecha, 
ValorFormato = Format(MiFecha, 
ValorFormato = Format(MiFecha, 

"Long Date") 
"Short Date") 
"Short Time") 

1 "viernes, 19 de julio de 2002" 

1 "19/07/2002" 

1 "18:25" 

ValorFormato = Format(MiNumero, 

"Standard") 

1 "1.804,00" 
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ValorFormato = 

Format(MiNumero, 

"Currency") 

1 "1.804 pta" 

ValorFormato = 

Format(MiNumero, 

"Percent") 

1 "180400,00%" 


Código fuente 198 


Para los caracteres especiales, la Tabla 22 muestra un conjunto de los más habituales. 


Carácter de formato 

Descripción 


Separador de hora. 

i 

Separador de fecha. 

d 

Visualiza el número de día sin cero a la izquierda. 

dd 

Visualiza el número de día con cero a la izquierda. 

ddd 

Visualiza el nombre del día abreviado. 

dddd 

Visualiza el nombre del día completo. 

M 

Visualiza el número de mes sin cero a la izquierda. 

MM 

Visualiza el número de mes con cero a la 
izquierda. 

MMM 

Visualiza el nombre del mes abreviado. 

MMMM 

Visualiza el nombre del mes completo. 

yy 

Visualiza dos dígitos para el año. 

yyyy 

Visualiza cuatro dígitos para el año. 

H 

Visualiza la hora sin cero a la izquierda. 

HH 

Visualiza la hora con cero a la izquierda. 

m 

Visualiza los minutos cero a la izquierda. 

mm 

Visualiza los minutos con cero a la izquierda. 

s 

Visualiza los segundos cero a la izquierda. 

ss 

Visualiza los segundos con cero a la izquierda. 

0 

En valores numéricos, muestra un dígito o cero. 

# 

En valores numéricos, muestra un dígito o nada. 

9 

Separador de millar. 
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Separador decimal. 


Tabla 22. Caracteres de formato para la función Fonnat( ). 


El Código fuente 199 muestra algunos ejemplos de formato con caracteres especiales. 


Dim MiFecha As Date 

Dim MiNumero As Double 

Dim ValorFormato As String 


MiFecha = #7/19/2002 6:25:00 PM# 

MiNumero = 16587.097 


ValorFormato = Format(MiFecha, "dddd d/MMM/yyyy") 
ValorFormato = Format(MiFecha, "HH:mm") 

ValorFormato = Format(MiNumero, "#,#.00") 

1 "viernes 19/jul/2002" 

1 "18:25" 

1 "16.587,10" 


Código ñiente 199 


Si queremos formatear las fechas de una manera todavía más elaborada, incluyendo texto adicional, 
podemos construir cadenas de formato empleando el carácter de escape, que en este caso es la barra 
invertida ( \ ), para evitar que determinados caracteres clave de formato sean sustituidos. 

Por ejemplo, tenemos la fecha 18/07/2002 y queremos formatearla de modo que se muestre la 
siguiente cadena: “La fecha es jueves, 18 de julio de 2002”. Con lo que sabemos hasta el momento, la 
cadena de formato que probablemente utilizaríamos sería la mostrada en el Código fuente 200, que nos 
daría un resultado incorrecto. 


Dim Fecha As Date = "18/07/2002" 

Consolé.WriteLine(Format(Fecha, "La fecha es dddd, dd de MMMM de yyyy")) 

' Resultado 

La 0ecl2a eO jueves, 18 18e julio 18e 2002 

Código fuente 200 

Lo que ha sucedido aquí es que la función Format( ) ha ido tomando cada carácter especial que 
entiende como sustituible y lo ha convertido al valor correspondiente. Para evitar este 
comportamiento, debemos preceder cada uno de estos caracteres del símbolo \ como vemos en el 
Código fuente 201. 


Dim Fecha As Date = "18/07/2002" 

Consolé.WriteLine(Format(Fecha, "La \fe\c\ha e\s dddd, dd \de MMMM \de yyyy")) 
1 Resultado 

La fecha es jueves, 18 de julio de 2002 

Código ñiente 201 
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Funciones de fecha y hora 


Now() 

1 Sintaxis 
Now () 

Devuelve un valor de tipo Date con la fecha y hora del sistema. 


DateAdd() 

1 Sintaxis 

DateAdd(Tipolntervalo, Valorlntervalo, Fecha) 

Suma o resta a una fecha, un intervalo determinado por el parámetro Tipolntervalo. El intervalo a 
utilizar pueden ser días, semanas, meses, etc. Para determinar si se realiza una suma o resta, 
Valorlntervalo deberá ser positivo o negativo respectivamente. 

DateDiff() 

1 Sintaxis 

DateDiff(Tipolntervalo, FechaPrimera, FechaSegunda) 

Calcula la diferencia existente entre dos fechas. En función de Tipolntervalo, la diferencia calculada 
serán días, horas, meses, años, etc. 


DatePart() 

1 Sintaxis 

DatePart(Tipolntervalo, Fecha) 

Extrae la parte de una fecha indicada en Tipolntervalo. Podemos obtener, el día, mes, año, día de la 
semana, etc. 

El Código fuente 202 muestra un conjunto de ejemplos que utilizan las funciones para manipular 
fechas que hemos descrito anteriormente. 


Dim MiFecha As Date 
Dim FechaPosterior As Date 
Dim DiasDiferencia As Long 
Dim ParteFecha As Integer 

MiFecha = Now() ' #1/19/2002 12:27:08 PM# 

FechaPosterior = DateAdd(Datelnterval.Month, 2, MiFecha) ' #3/19/2002 12:27:08 PM# 
DiasDiferencia = DateDiff(Datelnterval.Day, MiFecha, FechaPosterior) 1 59 
ParteFecha = DatePart(Datelnterval.Year, MiFecha) ' 2002 

Código fuente 202 
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Configurar el punto de entrada al programa 

Cuando creamos proyectos de consola desde VS.NET hemos visto que el propio IDE genera el código 
básico para el programa, añadiendo un archivo de código con un módulo, y el procedimiento Main( ) 
de entrada a la aplicación. 

También hemos visto que es posible añadir nuevos módulos de código al proyecto, bien en un mismo 
archivo de código o en archivos separados. 

Es importante destacar que no es obligatorio tener el procedimiento Main( ) en el módulo creado por 
el IDE, por lo que podemos escribir este procedimiento en cualquier otro módulo del proyecto. Sin 
embargo, cuando esto sucede, debemos tener en cuenta ciertas consideraciones. 

En primer lugar vamos a crear un nuevo proyecto de tipo consola como hemos hecho en otras 
ocasiones, de forma que se añadirá un archivo de código con el módulo Module 1 que contendrá el 
procedimiento Main(). 

Si dentro de este procedimiento mostramos un mensaje, la ejecución del programa transcurrirá sin más 
problemas. Ver el Código fuente 203. 


Module Modulel 
Sub Main() 

Consolé.WriteLine("Comienza el programa") 
Consolé.ReadLine() 

End Sub 
End Module 

Código fuente 203 


Y a que todo funciona bien, vamos a hacer ahora una pequeña travesura, escribiremos en el archivo de 
código en el que estamos situados un nuevo módulo con el nombre Pruebas, y dentro de él un nuevo 
procedimiento Main( ). Además cambiaremos el nombre del procedimiento Main( ) de Modulel a 
Entradaf ). Veamos todo ello en el Código fuente 204. 


Module Modulel 

Sub Entrada() 

Consolé.WriteLine("Comienza el programa") 
Consolé.ReadLine() 

End Sub 
End Module 

Module Pruebas 
Sub Main() 

Consolé.WriteLine("Comienza el programa") 
Consolé.ReadLine() 

End Sub 
End Module 

Código fuente 204 


190 






© Grupo EIDOS 


8. Funciones del lenguaje 


Al ejecutar de nuevo el programa se producirá un error en esta ocasión. Una vez que aceptemos el 
cuadro de mensaje del error, se debería de mostrar en el IDE la ventana Lista de tareas con la 
información sobre el error producido, en caso de que no aparezca esta ventana automáticamente, 
podemos abrirla con la opción de menú Ver + Otras ventanas + Lista de tareas. Ver Figura 83. 


Lista de tareas -1 tarea(s): Error al generar (filtro) 


S Descripción 



a clic aquí para agregar una nueva tarea 


No se ha encontrado 'Sub Main()' de inicio en 'ConsoleApplicationl .Modulel'. 



Figura 83. Ventana Lista de tareas con la descripción de un error. 


El motivo del error radica en que todo proyecto debe tener un objeto inicial, que en este caso es 
Module 1, si dentro del módulo hay un procedimiento Main( ) todo funcionará correctamente, pero si 
lo quitamos o cambiamos de nombre, el IDE al ejecutar el programa buscará Main( ) dentro de 
Module 1, y al no encontrarlo se producirá el error. 

Tenemos dos formas de solucionar el problema: 

Una vía consiste en hacer clic sobre el nombre del proyecto dentro de la ventana del Explorador de 
soluciones, y a continuación seleccionar la opción de menú del IDE Proyecto + Propiedades. Esto 
abrirá la ventana de propiedades del proyecto, y en la lista desplegable Objeto inicial, seleccionaremos 
Pruebas, como nombre del módulo en el que ahora está contenido Main( ). Ver Figura 84. 



Figura 84. Ventana de propiedades del proyecto. 
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Si sólo tenemos un único procedimiento Main( ) en el proyecto, también podemos optar por 
seleccionar el valor Sub Main de esta lista desplegable. El resultado de dicha acción será que al 
ejecutar el programa se buscará entre todos los módulos de código aquel que contenga Main( ), y se 
ejecutará. Esta es la opción más recomendable en este tipo de situaciones. 

La otra vía, más rápida en este caso, consiste en abrir la ventana Lista de tareas, que ya hemos visto 
antes, y hacer doble clic sobre la línea correspondiente al error. Ello nos mostrará una ventana para 
cambiar el nombre del módulo de inicio del programa. Debemos hacer clic sobre el módulo que 
contiene Main() y aceptar esta ventana. Ver Figura 85. 


Objeto inicial 


Elija una clase o módulo que contenga Sub Main() compartido 
o que herede de System.Windows.Forms.Form. 

Objeto inicial: 


ConsoleÁpplicationl .Pruebas 


Aceptar Cancelar Ayuda 


Figura 85. Cambio de objeto inicial del proyecto desde Lista de tareas. 

Cualquiera de estas acciones modificará las propiedades del proyecto, de modo que ahora ya sabrá que 
Main( ) está en otro módulo de código, no produciéndose error al ejecutar. 


Múltiples entradas al programa mediante distintos Main() 

Otro aspecto de los procedimientos Main( ) en VB.NET consiste en que podemos tener varios dentro 
de un mismo proyecto. 

Una vez creado un proyecto de tipo consola, si le añadimos nuevos módulos, bien en archivos 
separados, o agrupando varios módulos en un mismo archivo, podemos escribir un procedimiento 
Main( ) para cada uno de los módulos de nuestro proyecto. El Código fuente 205 muestra un ejemplo 
en el que tenemos dos módulos en un proyecto, con un procedimiento Main( ) dentro de cada uno. 


Module Modulel 

Public Sub Main() 

Consolé.WriteLine("Iniciamos el programa en el modulo Modulel") 
Consolé.ReadLine() 

End Sub 
End Module 

Module Cálculos 

Public Sub Main() 

Consolé.WriteLine("Iniciamos el programa en el modulo Cálculos") 
Consolé.ReadLine() 
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End Sub 
End Module 


Código fuente 205 


Por defecto, y ya que así se establece al crear el proyecto, la ejecución comenzará por el Main() del 
módulo Module 1. Pero podemos hacer que el procedimiento de inicio sea el Main( ) que está en el 
módulo Cálculos, abriendo la ventana de propiedades del proyecto y seleccionando como objeto 
inicial dicho módulo. Ver Figura 86. 



Figura 86. Establecer un módulo como objeto inicial del proyecto. 


Con esta técnica, podremos disponer de tantos procedimientos de inicio como módulos contenga 
nuestro proyecto. 

No obstante, si sólo deseamos que exista un único procedimiento Main( ) a lo largo de todo el código 
de nuestra aplicación, en la lista desplegable Objeto inicial , de la ventana de propiedades del proyecto, 
tendremos que seleccionar la opción Sub Main; esto nos obligará a tener sólo un procedimiento Main() 
dentro de cualquiera de los módulos, produciéndose un error si al comienzo de la ejecución se detecta 
más de un Main() en el código del proyecto. 
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Técnicas y depuración 


Técnicas de programación 

Las técnicas de programación consisten en un conjunto de guías o patrones para la escritura de 
algoritmos, que ayudan al programador a resolver operaciones de cálculo, manipulación de valores en 
procesos, búsqueda, ordenación, etc. 

Existe un gran número de técnicas para aplicar a los más diversos problemas; en los próximos 
apartados se describirán algunas de las más importantes. 

Recursividad 

Denominamos recursividad a la capacidad que tiene un procedimiento en un determinado lenguaje 
para llamarse a sí mismo. En esta situación se dice que el procedimiento es recursivo. 

Uno de los ejemplos más habituales de técnica recursiva consiste en el cálculo del factorial de un 
número. Para resolver este problema, debemos efectuar el producto de dicho número por todos los 
números comprendidos entre 1 hasta el número a calcular. 

Debido a que este tipo de rutinas devuelven un valor, se codificará como una función. Veamos un 
ejemplo en el Código fuente 206. 


Public Function Factorial(ByVal Numero As Integer) As Double 
If Numero = 0 Then 
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Return 1 

Else 

Return (Numero * Factorial(Numero - 1)) 

End If 

End Function 

Public Sub Main() 

Dim Resultado As Double 
Resultado = Factorial(5) 

Consolé.WriteLine("Factorial de 5 {o}", Resultado) 

End Sub 


Código fuente 206 


Búsqueda 

Cuando en un programa se manipula una mediana o elevada cantidad de datos, se hace preciso el uso 
de un algoritmo que nos ayude a localizar uno de esos datos dentro del conjunto disponible. 

Las búsquedas toman sentido al utilizar en el programa arrays o archivos, los cuales, al poder disponer 
de un elevado número de información, nos permiten localizar rápidamente el dato deseado. 

Existen dos algoritmos básicos de búsqueda de datos: lineal y binaria, que describiremos en los 
siguientes apartados. Para simplificar los ejemplos ilustrativos utilizaremos arrays en los mismos. 


Búsqueda lineal 

Este algoritmo de búsqueda consiste en posicionarse en el primer elemento del array, e ir 
recorriéndolos todos hasta encontrar el dato que queremos, o bien llegar al final si la búsqueda no tiene 
éxito. 

Recuerde el lector que los arrays en VB.NET comienzan por la posición cero, por dicho motivo, 
cuando vamos a visualizar la posición en la que se encuentra el valor localizado, le sumamos uno. Esta 
particularidad de los arrays en el lenguaje debe ser tenida en cuenta para todos los ejemplos. 

En el Código fuente 207 se muestra el algoritmo empleado para esta técnica. 


1 algoritmo de búsqueda lineal 
Public Sub Main() 

' array con valores a buscar 

Dim Ciudades() As String = {"Londres", "París", "Roma", "Venecia", 
"Tokio", "Madrid", "Sevilla", "Barcelona"} 

1 guarda valor a buscar 
Dim Buscar As String 

1 indicador que informa si se ha encontrado el valor 
Dim Encontrado As Boolean 
' contador de iteraciones en el array 
Dim Contador As Integer 

Consolé.WriteLine("¿Que ciudad buscamos?") 

1 introducir el valor a buscar 
Buscar = Consolé.ReadLine() 

' establecer el indicador de localización a no encontrado 
Encontrado = False 
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1 buscar desde principio a fin del array 
For Contador = 0 To UBound(Ciudades) 

' si encontramos el valor introducido... 

If Ciudades(Contador) = Buscar Then 

1 ... establecer el indicador encontrado a cierto 

Encontrado = True 

Consolé.WriteLine("Ciudad encontrada en la posición {o}", Contador + 1) 
' salir del bucle porque ya no hace falta seguir buscando 
Exit For 
End If 

Next 

1 si el indicador de localización es False, es que hemos recorrido 
1 todo el array sin encontrar el valor 
If Not Encontrado Then 

Consolé.WriteLine("No se ha encontrado") 

End If 

Consolé.ReadLine() 

End Sub 

Código ñiente 207 


El presente algoritmo sólo es recomendable aplicarlo cuando trabajamos con pequeñas cantidades de 
datos, ya que de lo contrario, la búsqueda tomaría un excesivo tiempo para completarse. 


Búsqueda binaria 

En el caso de que el array esté ordenado, la búsqueda binaria proporciona un algoritmo más veloz para 
la localización de datos. Esta técnica consiste en proporcionar el array ordenado y obtener el valor a 
buscar. A continuación se comprueba si el valor se encuentra en el intervalo de valores del array, 
abandonando el proceso si no lo está. 

En el caso de que el valor se encuentre entre los valores del array, se calcula la posición central del 
array y se comprueba si en dicho elemento está el valor. Si no es así, se comprueba, partiendo del 
elemento central, si el valor está en la primera o segunda mitad del array, haciendo sucesivas 
divisiones a su vez dentro de estas dos partes, y comprobando el valor de su elemento central. El 
Código fuente 208 muestra un ejemplo del caso. 


1 algoritmo de búsqueda binaria de una letra en un array 
Public Sub Main() 

' en los elementos del array no debe faltar ninguna letra, 

' las letras deben estar todas consecutivas o se puede 
1 entrar en un bucle infinito 

Dim Letras() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I"} 

Dim LetraBuscada As String 

Dim PosicCentral As Integer 

Dim PosicPrimera As Integer 

Dim PosicUltima As Integer 

Consolé.WriteLine("Introducir letra a buscar") 

' obtener valor a buscar 
LetraBuscada = Consolé.ReadLine() 

1 inicializar valores 
PosicPrimera = 0 
PosicUltima = UBound(Letras) 
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1 si la letra no está en el array, finalizar 
If LetraBuscada < Letras(PosicPrimera) Or _ 

LetraBuscada > Letras(PosicUltima) Then 

Consolé.WriteLine("Letra fuera de intervalo") 

Exit Sub 
End If 

' si la letra está en el intervalo comenzar a buscar 
Do 

1 calcular la posición central del array 
PosicCentral = (PosicPrimera + PosicUltima) / 2 
' si se encuentra la letra, finalizar 
If Letras(PosicCentral) = LetraBuscada Then 

Consolé.WriteLine("Letra encontrada la posición {o}", PosicCentral + 1) 
Exit Do 
End If 

1 si no se ha encontrado la letra: 

1 si la letra es menor que la que está 
1 en la posición central del array, asignar 
' como última posición la que hasta ahora 
' era la central 

If LetraBuscada < Letras(PosicCentral) Then 
PosicUltima = PosicCentral 

Else 

' si la letra es mayor que la que está 
1 en la posición central del array, asignar 
' como primera posición la que hasta ahora 
' era la central 
PosicPrimera = PosicCentral 
End If 

Loop 

Consolé.ReadLine() 

End Sub 

Código ñiente 208 


Ordenación 

Al desarrollar una aplicación existen determinados procesos que requieren que los datos a manipular 
se encuentren ordenados; para ello recurriremos a la ordenación, que es la técnica que nos permite 
clasificar un conjunto de datos mediante un algoritmo basado en una condición o valor. 

Existen diversos algoritmos de ordenación, dependiendo de la cantidad de datos a ordenar y de la 
rapidez en realizar la ordenación. Cuanto mayor número de datos debamos ordenar, mejor tendrá que 
ser el algoritmo para que emplee el menor tiempo posible. 


Ordenación por intercambio 

Este método de ordenación, también denominado de burbuja, consiste en comparar los elementos 
contiguos en el array, y si no están en orden, intercambiar sus valores. El Código fuente 209 muestra 
un ejemplo. 


Public Sub Main() 

Dim NumerosO As Integer = {20, 4, 12, 25, 6} 
Dim Indice As Integer 
Dim IndiceBis As Integer 
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Dim Intercambio As Integer 

For Indice = 0 To UBound(Números) - 1 

For IndiceBis = 0 To UBound(Números) - 1 

' si valor del elemento inferior es mayor que 
1 el elemento superior, intercambiar utilizando 
1 una variable puente 

If Números(IndiceBis) > Números(IndiceBis + 1) Then 
Intercambio = Números(IndiceBis) 

Números(IndiceBis) = Números(IndiceBis + 1) 
Números(IndiceBis + 1) = Intercambio 
End If 

Next 

Next 
End Sub 

Código ñiente 209 


Ordenación por inserción 

Si partimos de la idea de que un array es una lista de valores situados de izquierda a derecha, mediante 
este algoritmo de ordenación tomamos cada elemento de un array comenzando por la izquierda, y 
cuando encontremos un valor que no está en el orden correcto, lo situamos en su posición adecuada, 
desplazando a todos los valores superiores a las posiciones situadas a su derecha. 

En el Código fuente 210 se muestra un ejemplo de este tipo de ordenación. 


Public Sub Main() 

Dim ValoresO As Integer = {10, 20, 30, 50, 60, 40, 70} 

Dim Contador As Integer 
Dim ValorActual As Integer 
Dim Posición As Integer 

1 recorrer el array comenzando por la segunda posición 
For Contador = 1 To UBound(Valores) 

' obtener el valor correspondiente para comprobar si está en orden 
ValorActual = Valores(Contador) 

1 calcular la posición con la que vamos a trabajar 
Posición = Contador - 1 

While (Posición >= 1) 

1 si el valor obtenido no está en el orden correcto, 

1 dentro de este bucle ir desplazando a las posiciones 
' superiores del array los elementos de mayor valor 
If ValorActual < Valores(Posición) Then 

Valores(Posición + 1) = Valores(Posición) 

Posición = Posición - 1 

Else 

Exit While 
End If 
End While 

' situar el valor obtenido en su posición ordenada 
Valores(Posición + 1) = ValorActual 

Next 
End Sub 

Código ñiente 210 
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Ordenación por selección 

Consiste en recorrer un array buscando el valor menor; cada vez que se encuentre dicho valor, 
intercambiarlo con la posición actual de recorrido del array, de forma que los valores menores van 
quedando ordenados, mientras que los mayores se van desplazando hacia las posiciones superiores, 
siendo progresivamente ordenados. Veamos un ejemplo de esta técnica en el Código fuente 211. 


Public Sub Main() 

Dim ValoresO As Integer = {85, 475, 100, 7, 98, 250} 

Dim ContadorA As Integer 
Dim ContadorB As Integer 
Dim ValorActual As Integer 
Dim Posición As Integer 

1 recorrer el array 

For ContadorA = 0 To UBound(Valores) - 1 

' obtener valor de la posición en curso y número de posición 
ValorActual = Valores(ContadorA) 

Posición = ContadorA 

1 recorrer el array desde la posición actual más uno 
For ContadorB = ContadorA + 1 To UBound(Valores) 

1 si el valor del elemento del recorrido interior es 
1 menor que el valor actual obtenido del recorrido 
' externo o principal 

If Valores(ContadorB) < ValorActual Then 
' tomar el valor hallado como menor 
ValorActual = Valores(ContadorB) 

Posición = ContadorB 
End If 

Next 

1 intercambiar valores, situando el valor menor en la 
' posición inferior y el mayor en la posición superior 
Valores(Posición) = Valores(ContadorA) 

Valores(ContadorA) = ValorActual 

Next 
End Sub 

Código ñiente 211 


Ordenación rápida 

Esta técnica de ordenación consiste en tomar como referencia el valor de una posición del array, y 
situar en las posiciones de su izquierda todos los valores inferiores a dicho valor de referencia, y en las 
posiciones de su derecha los valores mayores. 

Se debe tener en cuenta que este algoritmo sólo se encarga de situar a los lados del valor de referencia 
los valores adecuados, sin preocuparse de si quedan o no ordenados; para ello deberemos aplicar un 
algoritmo de ordenación específico sobre cada parte del array. 

Dependiendo de dónde situemos el valor de referencia, podemos desarrollar el algoritmo de las dos 
maneras descritas a continuación. 
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Ordenación rápida con valor de referencia central 

Como se indica, en primer lugar calculamos cuál es la posición central del array, y a partir de ahí 
realizamos el proceso de ordenación. Recordemos que este algoritmo realiza una reubicación de 
valores, pero estos no tienen la obligación de quedar ordenados, como se muestra en el ejemplo del 
Código fuente 212. 


1 algoritmo de ordenación rápida estableciendo como valor 
1 de referencia un elemento que se encuentre en la mitad del array 
Public Sub Main() 

Dim Valores() As Integer = {51, 5, 72, 44, 67, 20, 19} 

Dim Posizquierda As Integer 
Dim PosDerecha As Integer 
Dim ValorRef As Integer 
Dim Intercambio As Integer 

' establecer Indices para los recorridos del array 

1 desde el principio y final 

Posizquierda = 0 

PosDerecha = UBound(Valores) 

1 calcular el valor de referencia a comparar 
ValorRef = Valores(PosDerecha / 2) 

While Posizquierda <= PosDerecha 

' recorrer hasta encontrar un valor mayor que el de referencia 
While Valores(Posizquierda) < ValorRef 
Posizquierda = Posizquierda + 1 
End While 

1 recorrer hasta encontrar un valor menor que el de referencia 
While Valores(PosDerecha) > ValorRef 
PosDerecha = PosDerecha - 1 
End While 

1 intercambiar valores: el menor pasa a la izquierda del valor 
' de referencia, y el mayor pasa a la derecha 
If Posizquierda <= PosDerecha Then 

Intercambio = Valores(Posizquierda) 

Valores(Posizquierda) = Valores(PosDerecha) 

Valores(PosDerecha) = Intercambio 

1 actualizar Indices 
Posizquierda = Posizquierda + 1 
PosDerecha = PosDerecha - 1 
End If 

End While 

End Sub 

Código ñiente 212 


Ordenación rápida con valor de referencia al comienzo 

La técnica a seguir en este caso es muy similar al anterior algoritmo, pero cambiando la posición de la 
cual obtenemos el valor de referencia. El Código fuente 213 muestra un ejemplo. 
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1 algoritmo de ordenación rápida estableciendo como valor 
1 de referencia el primer elemento del array 
Public Sub Main() 

Dim ValoresO As Integer = {51, 5, 67, 44, 72, 20, 19} 

Dim Posizquierda As Integer 
Dim PosDerecha As Integer 
Dim ValorRef As Integer 
Dim Intercambio As Integer 

1 establecer Indices para los recorridos del array 
' desde los elementos segundo y final respectivamente 

Posizquierda =1 1 el segundo elemento está en la posición 1 del array 

PosDerecha = UBound(Valores) 

1 establecer el primer elemento como valor de referencia a comparar 
ValorRef = Valores(0) ' el primer elemento está en la posición 0 del array 

While Posizquierda <= PosDerecha 

1 recorrer hasta encontrar un valor mayor que el de referencia 
While (Valores(Posizquierda) < ValorRef) And __ 

(Posizquierda < UBound(Valores) ) 

Posizquierda = Posizquierda + 1 
End While 

1 recorrer hasta encontrar un valor menor que el de referencia 
While Valores(PosDerecha) > ValorRef 
PosDerecha = PosDerecha - 1 
End While 

1 intercambiar valores: 

' el menor pasa a la izquierda --> zona de valores menores 
1 el mayor pasa a la derecha --> zona de valores mayores 
If Posizquierda <= PosDerecha Then 

Intercambio = Valores(Posizquierda) 

Valores(Posizquierda) = Valores(PosDerecha) 

Valores(PosDerecha) = Intercambio 

1 actualizar Indices 
Posizquierda = Posizquierda + 1 
PosDerecha = PosDerecha - 1 
End If 
End While 

' una vez situados todos los valores menores y mayores 
1 en su lado correspondiente, tomar el valor de referencia 
1 y mediante un intercambio, situarlo en su posición correcta 
If Posizquierda < UBound(Valores) + 1 Then 
Intercambio = Valores(PosDerecha) 

Valores(PosDerecha) = Valores(0) 

Valores(0) = Intercambio 

Else 

Intercambio = Valores(UBound(Valores)) 

Valores(UBound(Valores)) = Valores(0) 

Valores(0) = Intercambio 
End If 

End Sub 

Código ñiente 213 
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Fusión 

Esta técnica, también denominada intercalación, consiste en mezclar el contenido de dos arrays ya 
ordenados en un tercer array, obteniendo como resultado un único array ordenado. 

El Código fuente 214 muestra un ejemplo del desarrollo de este algoritmo. 


Public Sub Main() 

1 arrays ordenados 

Dim ValoresA() As String = {"C", "F", "J"} 

Dim ValoresBO As String = {"A", "G", "K", "M", "T"} 

1 array vacío en el que se fusionarán los dos arrays, 

1 este array será ampliado durante la ejecución del algoritmo 

1 para dar cabida a nuevos elementos 

Dim ValoresNuevo() As String 

Dim IndiceA As Integer 

Dim IndiceB As Integer 

Dim IndiceC As Integer 

Dim Contador As Integer 

' establecer los índices de recorrido para cada array 
IndiceA = 0 
IndiceB = 0 
IndiceC = 0 

' recorrer los dos arrays que tienen valores hasta llegar 
1 al final de alguno de ellos 

While (IndiceA <= UBound(ValoresA)) And (IndiceB <= UBound(ValoresB)) 
' añadir un nuevo elemento vacío al array de fusión 
ReDim Preserve ValoresNuevo(IndiceC) 

' comprobar de los dos arrays, cuál tiene el valor menor, 

1 y añadirlo en la nueva posición libre que acabamos de crear 
1 en el array de fusión 

If ValoresA(IndiceA) < ValoresB(IndiceB) Then 
ValoresNuevo(IndiceC) = ValoresA(IndiceA) 

IndiceA = IndiceA + 1 

Else 

ValoresNuevo(IndiceC) = ValoresB(IndiceB) 

IndiceB = IndiceB + 1 
End If 

1 actualizar el índice del array de fusión 
IndiceC = IndiceC + 1 
End While 

1 cuando hayamos terminado de recorrer el array más pequeño, 

1 seguir recorriendo el array que tiene más elementos hasta 
1 el final, y añadir los valores restantes en el array de fusión 
If IndiceA <= UBound(ValoresA) Then 

For Contador = IndiceA To UBound(ValoresA) 

ReDim Preserve ValoresNuevo(IndiceC) 

ValoresNuevo(IndiceC) = ValoresA(Contador) 

IndiceC = IndiceC + 1 

Next 

Else 

For Contador = IndiceB To UBound(ValoresB) 

ReDim Preserve ValoresNuevo(IndiceC) 

ValoresNuevo(IndiceC) = ValoresB(Contador) 

IndiceC = IndiceC + 1 

Next 
End If 
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End Sub 


Código fuente 214 


El depurador 

Un depurador es una herramienta que se suministra con el entorno de programación, y que permite al 
programador realizar un seguimiento exhaustivo de todos los aspectos del código existentes en su 
programa, de forma que pueda detectar y corregir los posibles errores producidos durante la fase de 
desarrollo de la aplicación. 

El depurador es una pieza fundamental en el trabajo del programador, tanto como el propio 
compilador, y de su versatilidad a la hora de tratar el código mediante puntos de interrupción, 
evaluación de expresiones, y otros aspectos propios de este tipo de elemento, depende que podamos 
desarrollar más eficiente y rápidamente nuestro trabajo. 

Visual Studio .NET incorpora un excelente depurador, que nos permitirá abordar la ejecución del 
código durante la fase de desarrollo de muy distintas formas, ayudándonos en la eliminación de todos 
los errores de programación existentes. 


Modo de depuración 

Aunque es un hecho que puede no ser percibido inicialmente, cada vez que ejecutamos la aplicación 
desde el IDE de VS.NET lo hacemos a través del depurador. 

Cuando seleccionamos la opción de menú Depurar + Iniciar, el IDE ejecuta el programa dentro del 
contexto del depurador. Sin embargo, si no establecemos ningún elemento de depuración que 
provoque una pausa en la ejecución, esta se producirá normalmente, y no nos percataremos de que el 
depurador está activo. 

A este tipo de ejecución se le denomina modo de depuración o ejecución virtual, ya que el ejecutable 
físico no es directamente ejecutado por el programador, sino que la ejecución se realiza a través de un 
intermediario, el depurador, que es el elemento que nos permite alterar el flujo normal de la ejecución. 


Modo de interrupción 

Para interaccionar con el depurador durante la ejecución del programa, debemos hacer que este último 
entre en un estado especial de pausa denominado modo de interrupción, en el cual podemos acceder al 
depurador y todos sus elementos. 

Podemos conseguir entrar en modo de interrupción de las siguientes formas: 

• Iniciando la ejecución del programa expresamente en dicho modo. 

• Estableciendo puntos de interrupción en el código. 

• Situando la instrucción Stop en aquellos puntos de código en los que necesitemos entrar en 
modo de interrupción. 
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El modo de interrupción pausará la ejecución del programa y nos mostrará la ventana del editor de 
código, remarcando aquella línea en que se haya producido la parada; recordemos que la línea 
resaltada por el depurador es la que está a punto de ejecutarse. Ver la Figura 87. 


□ 

Ó 


O 


Module Modulel 
Sub Main() 

Din Contador As Double 
Din Otro As Double 

For Contador = 1 To 500000 
Otro = Contador 

Consolé.WriteLine("ualor {0}", Otro) 

Next 


Figura 87. Editor de código en modo de interrupción del depurador. 


El medio más sencillo de entrar en modo de interrupción consiste en comenzar expresamente la 
ejecución del programa en dicho modo. Para ello, seleccionaremos en el IDE la opción de menú 
Depurar + Ir a instrucciones ; que ejecutará el programa en el contexto del depurador y detendrá 
inmediatamente la ejecución en la primera línea de código. A partir de aquí, podemos seguir la 
ejecución por pasos, establecer inspecciones, y realizar diversas operaciones, de las cuales 
describiremos las más importantes. 


Formas de ejecución del código en el depurador 

Una vez que hemos entrado en modo de interrupción, podemos controlar el flujo de la ejecución del 
código desde el depurador mediante alguna de las formas descritas a continuación: 

• Por instrucciones. Ejecuta el código del programa línea a línea, si encontramos una llamada a 
un procedimiento, el depurador se introduce en el código de ese procedimiento, procediendo a 
ejecutarlo también línea a línea. La opción de menú es Depurar + Ir a instrucciones. 

• Por procedimientos. Es similar al paso por instrucciones en cuanto a que ejecuta línea a línea 
el código del procedimiento en el que estamos situados. La diferencia en este caso, estriba en 
que si llegamos a una línea que realiza una llamada a un procedimiento, el depurador ejecutará 
el código del mismo sin permitimos depurarlo, y nos situará en la siguiente línea después de la 
llamada al procedimiento. Esta opción resulta útil para evitar entrar con el depurador en el 
código de rutinas que ya están suficientemente probadas y depuradas, las cuales sabemos que 
funcionan correctamente. La opción de menú es Depurar + Paso a paso por procedimientos. 

• Para salir. Cuando nos encontramos depurando el código de un procedimiento, al utilizar esta 
opción, el depurador ejecutará todo el código restante del mismo, desde la línea en que nos 
encontramos hasta el final, sin permitimos depurar. Al igual que la anterior opción, esta se 
utiliza en casos en los que sabemos que desde el punto en que nos encontramos, el código 
funciona correctamente. La opción de menú es Depurar + Paso a paso para salir. 

• Ejecutar hasta el cursor. Ejecuta todo el código hasta la línea en que hemos situado el 
cursor. Para usar esta opción, haremos clic con el botón derecho en la línea de código deseada 
y seleccionaremos del menú contextual la opción Ejecutar hasta el cursor. 

• Establecer instrucción siguiente. Permite alterar el flujo normal de la ejecución, 
desplazándolo al punto seleccionado por el usuario, sin ejecutar las líneas intermedias que 
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pudiera haber entre la línea activa actual, y la seleccionada como instrucción siguiente. Se 
trata de una opción muy potente, ya que es posible establecer una línea anterior ya ejecutada, 
alterando el ritmo lógico de ejecución. Esta característica no está disponible entre 
procedimientos diferentes, y para usarla haremos clic con el botón derecho en la línea de 
código deseada y seleccionaremos del menú contextual la opción Establecer instrucción 
siguiente. 

• Mostrar instrucción siguiente. Sitúa el cursor en la siguiente línea a ejecutar. Esta 
instrucción es muy útil cuando nuestro programa tiene una considerable cantidad de código, 
estamos revisando un conjunto de líneas en otra ventana distinta de código en el IDE, y no 
recordamos en dónde se encuentra la siguiente instrucción a ejecutar. Para utilizar esta opción 
haremos clic con el botón derecho en la ventana del editor de código y seleccionaremos del 
menú contextual la opción Mostrar la instrucción siguiente. 

• Reiniciar. Tal y como indica su nombre, comienza de nuevo la ejecución del programa en 
modo de depuración. La opción de menú del IDE es Depurar + Reiniciar. 

• Continuar. Prosigue la ejecución del programa sin permitimos utilizar el depurador. La 
opción de menú del IDE es Depurar + Continuar. 

• Detener depuración. Cancela la ejecución del programa y depurador. La opción de menú del 
IDE es Depurar + Detener depuración. 


Puntos de interrupción 

A efectos de depuración, un punto de interrupción es una línea de código con una marca especial, que 
hará que el flujo de la ejecución al llegar a ella active el depurador, entrando en modo de interrupción. 
Los puntos de interrupción deben ser establecidos en líneas ejecutables de la aplicación, por lo que no 
están permitidos en declaraciones de variables sin asignación, o comentarios. 


Inserción 

El modo más fácil de insertar un nuevo punto de interrupción en el programa, consiste en hacer clic 
derecho sobre una línea de código, y seleccionar la opción del menú contextual Insertar punto de 
interrupción. También podemos conseguir el mismo resultado pulsando [F9], o haciendo clic en el 
margen del editor de código. El resultado, como vemos en la Figura 88, será la línea resaltada con un 
color especial, indicativo de que tiene definido un punto de interrupción. 


E Module Modulel 
Ó Sub Main() 

Din Ualor, Inporte, Resultado fls In 
Ualor =10 

Consolé.WriteLine("Introducir el in| 
_ Inporte = Consolé .ReadLine() 


Resultado = Ualor * Inporte) 


Consolé.WriteLine("El resultado es: 
Consolé .ReadLine() 

End Sub 

Figura 88. Punto de interrupción definido en el código del programa. 
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Al ejecutar ahora el programa, cuando el flujo de la ejecución pase por una línea en la que se ha 
definido un punto de interrupción, se activará el depurador, entrando en modo de interrupción. 


Propiedades 

El comportamiento por defecto de un punto de interrupción es activar siempre el depurador cuando 
llegamos a dicho punto. 

No obstante esta característica puede ser alterada para que la entrada en el modo de interrupción sólo 
sea realizada cuando se cumpla una condición. 

Por ejemplo, supongamos que en el código fuente de la figura anterior, sólo queremos que se active el 
depurador cuando el contenido de la variable Importe sea 50. Para ello haremos clic derecho sobre el 
punto de interrupción y seleccionaremos la opción Propiedades del punto de interrupción, del menú 
contextual. 

Se abrirá la ventana de propiedades de este punto, en la que pulsando su botón Condición, podremos 
introducir una expresión que será evaluada al llegar la ejecución a este punto de interrupción. Si la 
expresión devuelve verdadero, entraremos en modo de interrupción; si devuelve falso, la ejecución 
continuará normalmente. Ver la Figura 89. 


Propiedades del punto de interrupc 


rm 


x] 


Función Archivo | Dirección | 


Interrumpir la ejecución cuando el programa alcance esta ubicación en un 
archivo. 


Archivo: 

Línea: 


I K:\cubo\ConsoleApplicationl\Modulel . vb 

I II 


Carácter: [T 





lorador de soluciones -.. 

. ? 

I® |i? 

= : = 



'ConsoleApplicationl' (1 proy 
isoleApplicationl 
References 
Assernblylnfo.vb 
Modulel.vb 


Condición del punto de interrupción 




Condición, 


Recuento de visitas... 


Cuando se llega al punto de interrupción, la expresión se evalúa y el punto de 
interrupción se visita solamente si la expresión se establece en true o ha cambiado. 

17 Condición 
| Importe = 50| 

(* es true 
C ha cambiado 


Aceptar 


Cancelar 


Ayuda 


Aceptar Cancelar Ayuda 


Figura 89. Definición de una condición para un punto de interrupción. 


Como puede observar el lector, es posible establecer la condición de entrada cuando la expresión sea 
cierta, o bien haya cambiado el contenido de una variable. 
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Adicionalmente al establecimiento de una condición, o bien, de forma alternativa a esta, en la ventana 
de propiedades del punto de interrupción podemos pulsar el botón Recuento de visitas, mediante el 
que podemos establecer que dicho punto entre en funcionamiento cuando haya sido visitado en un 
determinado momento. Tomemos como ejemplo el código de la Figura 90, en el que hemos insertado 
un punto de interrupción dentro de un bucle. 


For Contador = 1 To 10 

Consolé.WriteLine("Estanos en el paso: 


Ualor += Contador + 1 


Next 


EE 


<0>", Contador) 


Figura 90. Punto de interrupción en un bucle. 


Ahora procedemos a abrir la ventana de propiedades de dicho punto y en su recuento de visitas 
establecemos que el depurador se active cuando el punto de interrupción haya sido visitado cinco 
veces. Ver Figura 91. 



Figura 91. Establecer el recuento de visitas de un punto de interrupción. 


De este modo, cuando el bucle sea ejecutado por quinta vez, será cuando el punto de interrupción hará 
que entremos en modo de depuración. 


Punto de interrupción a nivel de procedimiento 

Existe otro modo de insertar un punto de interrupción, no tan intuitivo como el que acabamos de 
describir, que consiste en utilizar la opción de menú Depurar + Nuevo punto de interrupción. De esta 
forma, entramos directamente en la ventana de propiedades del punto de interrupción, y en la pestaña 
Función, tenemos que escribir el nombre del procedimiento en el que estamos definiendo dicho punto. 

Suponiendo por ejemplo, que hemos escrito un procedimiento con el nombre VerFecha( ), y situados 
en cualquier lugar de su código invocamos esta opción, se mostrará la mencionada ventana de 
propiedades en la que escribiremos el nombre de esta rutina de código. Ver Figura 92. 
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Figura 92. Definición de un punto de interrupción a nivel de procedimiento. 

El punto de interrupción en el editor de código quedaría en este caso como muestra la Figura 93. La 
entrada en el depurador por lo tanto, se produciría en cuanto se comenzara a ejecutar el código del 
procedimiento, siempre que lo permita la condición y el recuento de visitas, en el caso de que estén 
establecidos. 



Public Sub UerFecha() 

Din FechaActual As Date 

FechaActual = DateTime.Now 

Consolé.WriteLine("La Fecha e^: {O}", _ 

FechaActual.ToStringC'dddd d-MMM-yyyy")) 

End Sub 

Figura 93. Punto de interrupción a nivel de procedimiento. 


Al definir puntos de interrupción de esta manera hemos de ser cuidadosos, ya que si en el campo 
Función de su ventana de propiedades escribimos un valor que no corresponda a una rutina de código, 
el IDE nos mostrará un error indicando que no puede crear el punto de interrupción. 


Habilitar y deshabilitar 

Durante el desarrollo del programa, puede que en ocasiones no estemos interesados en que un punto 
de interrupción nos introduzca en el depurador, pero no queramos tampoco eliminarlo. 
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Ante este tipo de situaciones, haremos clic derecho en el punto de interrupción, y seleccionaremos del 
menú contextual la opción Deshabilitar punto de interrupción , que lo dejará desactivado hasta que de 
igual modo seleccionemos la opción de menú Habilitar punto de interrupción. 

La Figura 94 muestra el aspecto de un punto de interrupción deshabilitado 


O 


For Contador = 1 To 10 

Consolé Air iteLine("Esta ños en el paso: <0}", Contador) 
Ualor +[= Contador + 100 
UerFecha() 

Next 


Figura 94. Punto de interrupción deshabilitado. 


Para deshabilitar todos los puntos en un único paso, emplearemos la opción de menú Depurar + 
Deshabilitar todos los puntos de interrupción. 


Eli mi nar 

Podemos quitar un punto de interrupción de varias formas: haciendo clic derecho sobre el punto, 
seleccionando la opción Quitar punto de interrupción del menú contextual; pulsando [F9]; o haciendo 
clic en la marca del punto situada en el margen derecho del editor de código. 

Podemos quitar todos los puntos establecidos seleccionando el menú del IDE Depurar + Borrar todos 
los puntos de interrupción. 


La ventana Puntos de interrupción 

Esta ventana del IDE nos permite de un modo sencillo, la manipulación de los puntos de interrupción 
definidos en el proyecto. Ver Figura 95. 


Puntos de interrupción 

Nuevo 

Nombre 

X 


3 ^ 

Columnas » 

Jj 

Condición Recuento de visitas 


□ # Module 1 .vb, línea 8 carácter 1 


ConsoleApplicationl .Modulel .VerFecha() 


@ + Module l.vb, línea 17 carácter 1 


(sin condición) 
(sin condición) 
(sin condición) 


cuando recuento de visitas es igual a 5 
interrumpir siempre 
interrumpir siempre 


Figura 95. Ventana Puntos de interrupción. 


Como podemos observar, mediante esta ventana podemos realizar todas las operaciones posibles con 
los puntos de interrupción, como definir nuevos, acceder a sus propiedades, eliminar, etc. 
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Inspecciones 

Una inspección consiste en un elemento de código (identificador, expresión, etc.) que podemos 
seleccionar cuando nos encontramos en modo de depuración, y sobre el que realizaremos una labor de 
supervisión durante la ejecución del código desde el depurador, para controlar los diferentes valores o 
estados que puede ir tomando durante el funcionamiento del programa. 

Tomemos como base para un ejemplo el Código fuente 215. 


Dim Valores() As Integer = {10, 20, 30, 40} 

Dim Indice, Dato, Importe As Integer 
Consolé.WriteLine("Introducir un valor") 

Dato = Consolé.ReadLine() 

For Indice = 0 To UBound(Valores) 

Importe = Dato * Valores(Indice) 

If Dato >= Valores(Indice) Then 
Exit For 
End If 

Next 

Código fuente 215 


Cuando al ejecutar este código desde el depurador nos encontremos dentro del bucle For, supongamos 
que nos interesa saber en todo momento el valor o resultado de los siguientes elementos: 

• Valor actual de la posición del array. 

• Resultado del cálculo en la expresión Dato * Valores(lndice) 

• Resultado de la expresión Dato >= Valores(Indice) 

Para obtener esta información, seleccionaremos la variable o expresión a controlar y haremos clic 
derecho, eligiendo del menú contextual la opción Agregar inspección. Esta operación creará una 
nueva inspección de código y la añadirá a una de las ventanas Inspección del IDE, que podemos abrir 
mediante la opción de menú Depurar + Ventanas + Inspección. Según vayamos ejecutando el código, 
las inspecciones definidas en esta ventana se irán actualizando. Ver Figura 96. 



Importe 

20 

Integer 

Valores(Indice) 

20 

Integer 



False 

Boolean 





Figura 96. Ventana Inspección del depurador. 


También podemos inspeccionar un elemento aún no definido como inspección, para ello lo 
seleccionaremos, y haciendo clic derecho sobre el mismo, elegiremos del menú contextual la opción 
Inspección rápida, que nos mostrará esta ventana con el valor a inspeccionar. Ver Figura 97. 
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Figura 97. Ventana Inspección rápida. 


Como puede observar el lector, esta inspección rápida inicialmente no forma parte del conjunto de 
inspecciones definidas en la ventana Inspección, pero podemos hacer que así sea, pulsando el botón 
Agregar inspección de la ventana. 


Ventanas adicionales en el IDE para la depuración 

La opción de menú Depurar + Ventanas , contiene un numeroso conjunto de subopciones, que nos 
proporcionan acceso a diversas ventanas del IDE, relacionadas con aspectos de la depuración. En los 
siguientes apartados, vamos a realizar una descripción de las más importantes. 


Ventana Locales 

Esta ventana del depurador muestra el conjunto de identificadores de ámbito local al procedimiento 
que actualmente está siendo depurado, permitiéndonos además, la modificación de las variables a 
través de la propia ventana. Ea abriremos mediante la opción de menú Depurar + Ventanas + Locales. 
Ver Figura 98. 


Locales 


¥ X 


Nombre 

Valor 

Tipo 

Dato 

0 

Integer 

Importe 

95| 

Integer 

Indice 

0 

Integer 

R Valores 

jLength=4)- 

Integer() 


— (0) 

10 

Integer 


— O) 

70 

Integer 


— (2) 

30 

Integer 


L (3) 

40 

Integer 


d 


d 


Figura 98. Ventana Locales del IDE, modificando el valor de una variable. 
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Ventana Inmediato 

Esta ventana permite la evaluación de expresiones y ejecución de sentencias sencillas de código 
durante la depuración del programa. Podemos acceder a ella con la opción de menú Depurar + 
Ventanas + Inmediato. 

Para obtener el valor de una expresión, escribiremos el carácter de cierre de interrogación seguido de 
la expresión a evaluar; en el caso de la ejecución de código, escribiremos la sentencia a ejecutar. En 
ambas situaciones pulsaremos al final [1NTRO]. 

La Figura 99 muestra un ejemplo en el que se visualiza el valor de una variable en esta ventana; 
seguidamente se cambia dicho valor y se vuelve a mostrar. 


Ventana de comandos - Inmediato 


? dato 
9 

dato=150 
? dato 

ISO 

■ 

Figura 99. Ventana Inmediato del depurador. 


Ventana Pila de llamadas 

Durante la ejecución de un programa, el procedimiento activo es situado en una lista que controla las 
llamadas entre procedimientos. Si dicho procedimiento llama a su vez a otro, el último llamado es 
agregado a la lista, pasando a ocupar el primer lugar y así sucesivamente. La ventana Pila de llamadas 
muestra esta lista de procedimientos apilados, de forma que el programador pueda comprobar la 
relación de llamadas efectuadas entre sí por los procedimientos en ejecución. La opción de menú para 
esta ventana es Depurar + Ventanas + Pila de llamadas. 

Tomemos como ejemplo el Código fuente 216, en el que desde un procedimiento Main() se hace una 
llamada al procedimiento VerFecha( ), y desde este al procedimiento Calcular( ). 


Sub Main() 

I 

VerFecha() 

I 

End Sub 

Public Sub VerFecha() 

I 

Calcular() 

I 

End Sub 

Public Sub Calcular () 

I 

End Sub 

Código fuente 216 
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Entrando con el depurador en la ejecución de este código, cuando lleguemos al procedimiento 
Calcular( ), si abrimos la ventana Pila de llamadas nos ofrecerá un aspecto similar al de la Figura 100. 


Pila de llamadas 

Nombre 

Lenguaje 

» ConsoleApplicationl .exelConsoleApplicationl .Modulel .Calcular() Línea 16 

Basic 

ConsoleApplicationl.exelConsoleApplicationl.Modulel. VerFecha() Línea 10 + 0x6 bytes 
ConsoleApplicationl.exe!ConsoleApplicationl.Modulel.Main() Línea 4 4- 0x6 bytes 

Basic 

Basic 


Figura 100. Ventana Pila de llamadas del depurador. 


Ventana Módulos 

Visualiza los ensamblados o módulos cargados por el entorno de ejecución de la plataforma .NET 
Framework (ejecutables, librerías, etc.), necesarios para la ejecución del programa, junto a 
información adicional sobre su nombre, versión, orden de carga, etc. La opción de menú para abrir 
esta ventana es Depurar + Ventanas + Módulos. Ver Figura 101. 



|Módulos 





? X | 

Nombre 

Dirección 

| Ruta de acceso 

T Orden 

I Versión 

~T Program. 

¡Elmscorlib.dll 

61940000-6 IB1E000 

k: \winnt\microsof t. net\f ramework\v... 

1 

1.0.2914.16 

[1384] C| 

ConsoleApplicationl.exe 

11000000-1100A000 

K: \cubo\ConsoleApplication 1 \bin\Co ... 

2 

1.0.985.10... 

[1384]C 

Q microsoft.visualbasic.dll 

53140000-53182000 

k: \winnt\assembly\gac\microsof t. vis... 

3 

7.0.9254.0 

[1384]C 


Figura 101. Ventana Módulos, del depurador. 


Ventana Resultados 

Como acabamos de comprobar en el apartado anterior, cuando procedemos a ejecutar nuestro 
programa desde el IDE, se produce una carga de módulos en memoria. Esta ventana nos muestra 
información sobre dicho proceso de carga y su estado. Ver Figura 102. 


Resultados 


Depurar 

'Default-Domain': se cargó 'k:\winnt.\BLÍcroso£t..net.\ frameuork\vl. O. Z914\mscorlib. dll' , no se p- 
'ConsoleApplicationl': se cargó 'K:\cubo\ConsoleApplicationl\bin\ConsoleApplicationl.exe', s 
'ConsoleApplicationl.exe': se cargó 'k:\winnt\assembly\gac\microsoft. visualbasic\7. 0.0.0_bO 

Figura 102. Ventana Resultados del IDE. 


La opción de menú para esta ventana es Ver + Otras ventanas + Resultados. 


Ventana Desensamblador 

Muestra el código que estamos depurando en formato desensamblado, es decir, las instrucciones a bajo 
nivel que componen cada una de las líneas de código de nuestro programa. Para acceder a esta ventana 
seleccionaremos el menú Depurar + Ventanas + Desensamblador. Ver Figura 103. 
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Página de inicio | XNotas.txt | Modulel.vb Desensamblador | 

Dirección ConsoleApplicationl.Modulel.MainQ * 


0000G0d2 

cali 


5DEG0B09 


Inporte 

= Dato * Ualores(Indice) 

0G0000d7 

nou 


duord ptr [ebp-8],eax 


If 

Dato 

>= Ualores(Indice) Then 

GGGGGGda 

cnp 


ebx,duord ptr [edi+4] 

GOGGGGdd 

jb 


GGGGGGEÓ 

GGGGGGdf 

xor 


ecx ,ecx 

GOOGOGel 

cali 


5DD7B032 

GGGGGGeó 

nou 


eax,duord ptr [edi+ebx*4+8 

GGGGGGea 

cnp 


eax,duord ptr [ebp-4] 

GOGOGOed 

jg 


GGGGGGF2 

GGGGGGef 

OGOGGGf0 

nop 

jnp 

Exit 

For 

GGGG0105 


Figura 103. Ventana Desensamblador del depurador. 
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Las ventajas de la programación orientada a objeto 

La programación orientada a objeto, OOP (Object Oriented Programniing) a partir de ahora, se trata de 
una evolución de la programación procedural basada en funciones, que permite agrupar elementos de 
código (rutinas y datos) con funcionalidades similares, bajo un sistema unificado de manipulación y 
acceso a dichos elementos. 


Del enfoque procedural al enfoque orientado a objeto 

En la programación estructurada procedural, basada en procedimientos y funciones, el crecimiento de 
una aplicación hace que el mantenimiento de la misma se convierta en una tarea difícil, debido al gran 
número de procedimientos interrelacionados que podemos llegar a tener. El mero hecho de efectuar 
una pequeña modificación en un proceso, nos puede suponer el tener que recorrer un gran número de 
funciones del programa, no relacionadas por un nexo común. 


Abordando un problema mediante programación 
procedural 


Tomemos el ejemplo de un programador al que le encargan el desarrollo de una aplicación para la 
gestión de una empresa. Entre los diferentes cometidos a resolver, se encuentra el control de los 
empleados en lo que respecta a su alta, pago de sueldos, cálculo de vacaciones, etc. 
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El programador se pone manos a la obra, desarrollando una aplicación basada en un enfoque 
procedural. Al llegar a los procesos relativos al empleado, va escribiendo las diferentes rutinas, 
distribuyéndolas a lo largo de los diferentes módulos que componen el programa. Ver el Código fuente 
217. 


Module General 

Public psNombre As String 
Public Sub Main() 

1 procedimiento de inicio del programa, 

' aquí mostramos por ejemplo un menú 
' para seleccionar alguno de los procesos 
1 del programa: altas de empleados, 

' cálculo de nómina, periodos vacacionales, etc. 


End Sub 

Public Sub CalcularVacaciones(ByVal lilDEmpleado As Integer, 
ByVal ldtFechalnicio As Date, ByVal liNumDias As Integer) 
1 en este procedimiento calculamos 
1 el periodo de vacaciones del empleado 
1 pasado como parámetro 
Dim ldtFechaFinal As Date 


1 obtener el nombre del empleado en función de su identificador 
psNombre = "Juan" 
psApellidos = "Plaza" 


1 calcular la fecha final y mostrar 
' el periodo vacacional 

ldtFechaFinal = DateAdd(Datelnterval.Day, liNumDias, ldtFechalnicio) 
Consolé.WriteLine("Empleado: {0} {l}", psNombre, psApellidos) 

Consolé.WriteLine("Vacaciones desde {0} hasta {l}", 

Format(ldtFechalnicio, "dd/MMM/yy"), _ 

Format(ldtFechaFinal, "d/MMMM/yyyy")) 

Consolé.ReadLine() 

End Sub 

1 otros procedimientos del módulo 


End Module 
Module Varios 

Public psApellidos As String 

Public Sub CrearEmpleado(ByVal lilDEmpleado As Integer, __ 
ByVal lsNombre As String, ByVal IsApellidos As String, 
ByVal lsDNI As String, ByVal ldtFechaAlta As Date) 

' grabamos los datos de un nuevo empleado en la 
1 base de datos que utiliza el programa 


Consolé.WriteLine("Se ha grabado el empleado: {o} - {l} {2}", 
lilDEmpleado, lsNombre, IsApellidos) 

Consolé.ReadLine() 

End Sub 

1 otros procedimientos del módulo 
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End Module 
Module Pagos 

Public Sub TransfNomina(ByVal lilDEmpleado As Integer, ByVal ldblmporte As 
Double) 

' realizamos la transferencia de nómina 
' a un empleado, utilizando su identificador 


1 obtenemos los datos del empleado 
psNombre = "Ana" 
psApellidos = "Roca" 


1 visualizamos el resultado 
Consolé.WriteLine("Pago de nómina") 

Consolé.WriteLine("Empleado: {0} {l}", psNombre, psApellidos) 
Consolé.WriteLine("Ingresado: {0}", ldblmporte) 

Consolé.ReadLine() 

End Sub 

Public Sub MostrarEmpleado(ByVal lilDEmpleado As Integer) 

1 buscar la información del empleado por su identificador 
Dim lsDatosEmpleado As String 


psNombre = "isabel" 
psApellidos = "casillas" 

lsDatosEmpleado = StrConv(psNombre & " " & psApellidos, 

VbStrConv.ProperCase) 

Consolé.WriteLine("El empleado seleccionado es: { 0} " , lsDatosEmpleado) 
Consolé.ReadLine() 

End Sub 

1 otros procedimientos del módulo 


End Module 

Código ñiente 217 


En el ejemplo anterior se declaran variables públicas en diferentes módulos del proyecto, y se crean 
procedimientos para las tareas relacionadas con el alta, visualización de datos, pagos, etc., del 
empleado. Todo este código se encuentra disperso a lo largo del programa, por lo que su 
mantenimiento, según crezca la aplicación, se hará progresivamente más difícil. Para solucionar este 
problema, necesitamos realizar un enfoque OOP de los procesos a desarrollar. 


Los fundamentos de la programación orientada a objeto 

La organización de una aplicación en OOP se realiza mediante estructuras de código. 

Una estructura de código contiene un conjunto de procedimientos e información que ejecutan una serie 
de procesos destinados a resolver un grupo de tareas con un denominador común. Una aplicación 
orientada a objetos tendrá tantas estructuras de código como aspectos del programa sea necesario 
resolver. 

Un procedimiento que esté situado dentro de una de estructura de este tipo, no podrá llamar ni ser 
llamado por otro procedimiento situado en una estructura distinta, si no es bajo una serie de reglas. Lo 
mismo sucederá con los datos que contenga la estructura, permanecerán aislados del exterior, y sólo 
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serán accesibles siguiendo ciertas normas. Una estructura de código, es lo que en OOP identificamos 
como objeto. 

Al ser las estructuras de código u objetos, entidades que contienen una infoimación precisa y un 
comportamiento bien definido a través del conjunto de procedimientos que incluyen, pueden ser 
clasificados en función de las tareas que desempeñan. Precisamente, uno de los fines perseguidos por 
la OOP es conseguir una mejor catalogación del código, en base a estructuras jerárquicas 
dependientes, al estilo de un árbol genealógico. 

Trasladando las nociones que acabamos de exponer al ejemplo anterior, en el cual se programaban los 
procesos de gestión de los empleados de una empresa, el resultado obtenido será una estructura de 
código conteniendo todos los procedimientos, funciones y variables de la aplicación, implicados en las 
operaciones a realizar con un empleado, o lo que es lo mismo, un objeto Empleado. Entre los 
elementos de este objeto encontraremos el nombre, apellidos, alta del empleado, pago de nómina, etc. 

Todos los elementos que forman parte de un objeto componen la clase del objeto. Una clase consiste 
en el conjunto de especificaciones que peimiten crear los objetos; en el caso expuesto por el ejemplo 
anterior sería la clase Empleado. 

Como acabamos de comprobar, las motivaciones que han llevado al desarrollo de la OOP son facilitar 
una mejor organización y clasificación del código, que la proporcionada por la programación 
procedural tradicional; aproximando al mismo tiempo, el modo de programar a la manera en que 
nuestra mente trabaja para aplicar soluciones a los problemas planteados. 


Objetos 

Un objeto es una agrupación de código, compuesta de propiedades y métodos, que pueden ser 
manipulados como una entidad independiente. Las propiedades definen los datos o información del 
objeto, permitiendo consultar o modificar su estado; mientras que los métodos son las rutinas que 
definen su comportamiento. 

Un objeto es una pieza que se ocupa de desempeñar un trabajo concreto dentro de una estructura 
organizativa de nivel superior, formada por múltiples objetos, cada uno de los cuales ejerce la tarea 
particular para la que ha sido diseñado. 


Clases 

Una clase no es otra cosa que el conjunto de especificaciones o noimas que definen cómo va a ser 
creado un objeto de un tipo determinado; algo parecido a un manual de instrucciones conteniendo las 
indicaciones para crear el objeto. 

Los términos objeto y clase son utilizados en OOP con gran profusión y en contextos muy similares, 
por lo que para intentar aclarar en lo posible ambos conceptos, diremos que una clase constituye la 
representación abstracta de algo, mientras que un objeto constituye la representación concreta de lo 
que una clase define. 

La clase determina el conjunto de puntos clave que ha de cumplir un objeto para ser considerado 
perteneciente a dicha clase o categoría, ya que no es obligatorio que dos objetos creados a partir de la 
misma clase sean exactamente iguales, basta con que cumplan las especificaciones clave de la clase. 
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Expongamos ahora las anteriores definiciones mediante un ejemplo preciso: un molde para crear 
figuras de cerámica y las figuras obtenidas a partir del molde. En este caso, el molde representaría la 
clase Figura, y cada una de las figuras creadas a partir del molde, sería un objeto Figura. Cada objeto 
Figura tendrá una serie de propiedades comunes: tamaño y peso iguales; y otras propiedades 
particulares: un color distinto para cada figura. 

Aunque objetos distintos de una misma clase pueden tener ciertas propiedades diferentes, deben tener 
el mismo comportamiento o métodos. Para explicar mejor esta circunstancia, tomemos el ejemplo de 
la clase Coche; podemos crear dos coches con diferentes características (color, tamaño, potencia, etc.), 
pero cuando aplicamos sobre ellos los métodos Arrancar, Acelerar o Frenar, ambos se comportan o 
responden de la misma manera. 


Instancias de una clase 

El proceso por el cuál se obtiene un objeto a partir de las especificaciones de una clase se conoce 
como instanciación de objetos. En la Figura 104 volvemos al ejemplo del molde y las figuras; en dicha 
imagen vemos un molde para fabricar figuras rectangulares, donde la clase Figura estaría representada 
por el molde, y cada uno de los objetos Figura (iguales en forma pero con la propiedad Color distinta), 
representaría una instancia de la clase. 


Clase Fisura 



^KSBSSSSBBSSSSM 
Objeto Figura 1 



Objeto Figura! 


Objeto Figurad 


W 


Figura 104. Instanciación de objetos a partir de una clase. 


Características básicas de un sistema orientado a objeto 

Para que un lenguaje o sistema sea considerado orientado a objeto, debe cumplir las características de 
los siguientes apartados. 
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Abstracción 

La abstracción es aquella característica que nos permite identificar un objeto a través de sus aspectos 
conceptuales. 

Las propiedades de los objetos de una misma clase, pueden hacerlos tan distintos que sea difícil 
reconocer que pertenecen a una clase idéntica. No obstante, nosotros reconocemos a qué clase 
pertenecen, identificando además, si se trata de la misma clase para ambos. Ello es posible gracias a la 
abstracción. 

Tomemos como ejemplo dos objetos coche, uno deportivo y otro familiar; su aspecto exterior es muy 
diferente, sin embargo, cuando pensamos en cualquiera de ellos, sabemos que ambos pertenecen a la 
clase Coche, porque realizamos una abstracción o identificación mental de los elementos comunes que 
ambos tienen (ruedas, volante, motor, puertas, etc.). 

Del mismo modo que hacemos al identificar objetos reales, la abstracción nos ayuda a la hora de 
desarrollar una aplicación, permitiéndonos identificar los objetos que van a formar parte de nuestro 
programa, sin necesidad de disponer aún de su implementación; nos basta con reconocer los aspectos 
conceptuales que cada objeto debe resolver. 

Por ejemplo, cuando abordamos el desarrollo de un programa de gestión orientado a objetos, 
realizamos una abstracción de los objetos que necesitaríamos para resolver los procesos del programa: 
un objeto Empleado, para gestionar al personal de la empresa; un objeto Factura, para gestionar las 
ventas realizadas de productos; un objeto Usuario, para verificar las personas que utilizan la 
aplicación, etc. 


Encapsulación 

La encapsulación establece la separación entre el interfaz del objeto y su implementación, 
aportándonos dos ventajas fundamentales. 

Por una parte proporciona seguridad al código de la clase, evitando accesos y modificaciones no 
deseadas; una clase bien encapsulada no debe permitir la modificación directa de una variable, ni 
ejecutar métodos que sean de uso interno para la clase. 

Por otro lado la encapsulación simplifica la utilización de los objetos, ya que un programador que use 
un objeto, si este está bien diseñado y su código correctamente escrito, no necesitará conocer los 
detalles de su implementación, se limitará a utilizarlo. 

Tomando un ejemplo real, cuando nosotros utilizamos un objeto Coche, al presionar el acelerador, no 
necesitamos conocer la mecánica interna que hace moverse al coche, sabemos que el método Acelerar 
del coche es lo que tenemos que utilizar para desplazarnos, y simplemente lo usamos. 

Pasando a un ejemplo en programación, si estamos creando un programa de gestión y nos 
proporcionan un objeto Cliente que tiene el método Alta, y sirve para añadir nuevos clientes a la base 
de datos, no precisamos conocer el código que contiene dicho método, simplemente lo ejecutamos y 
damos de alta a los clientes en nuestra aplicación. 
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Polimorfismo 

El polimorfismo determina que el mismo nombre de método, realizará diferentes acciones según el 
objeto sobre el que sea aplicado. Al igual que sucedía en la encapsulación, el programador que haga 
uso del objeto, no necesita conocer los detalles de implementación de los métodos, se limita a 
utilizarlos. 

Pasando a un ejemplo real, tomamos dos objetos: Pelota y VasoCristal; si ejecutamos sobre ambos el 
método Tirar, el resultado en ambos casos será muy diferente; mientras que el objeto Pelota rebotará al 
llegar al suelo, el objeto VasoCristal se romperá. 

En un ejemplo aplicado a la programación, supongamos que disponemos de los objetos Ventana y 
Fichero; si ejecutamos sobre ambos el método Abrir, el resultado en Ventana será la visualización de 
una ventana en el monitor del usuario; mientras que en el objeto Fichero, se tomará un fichero en el 
equipo del usuario y se dejará listo para realizar sobre él operaciones de lectura o escritura. 


Herencia 

Se trata de la característica más importante de la OOP, y establece que partiendo de una clase a la que 
denominamos clase base, padre o superclase, creamos una nueva clase denominada clase derivada, 
hija, o subclase. En esta clase derivada dispondremos de todo el código de la clase base, más el nuevo 
código propio de la clase hija, que escribamos para extender sus funcionalidades. 

A su vez podemos tomar una clase derivada, creando una nueva subclase a partir de ella, y así 
sucesivamente, componiendo lo que se denomina una jerarquía de clases, que explicaremos 
seguidamente. 

Existen dos tipos de herencia: simple y múltiple. La herencia simple es aquella en la que creamos una 
clase derivada a partir de una sola clase base, mientras que la herencia múltiple nos permite crear una 
clase derivada a partir de varias clases base. El entorno de .NET Framework sólo permite utilizar 
herencia simple, por lo que este es el tipo de herencia que podremos usar con el lenguaje VB.NET. 

Como ejemplo real de herencia, podemos usar la clase Coche como clase base; en ella reconocemos 
una serie de propiedades como Motor, Ruedas, Volante, etc., y unos métodos como Arrancar, 
Acelerar, Frenar, etc. Como clase derivada creamos CocheDeportivo, en la cuál, además de todas las 
características mencionadas para la clase Coche, encontramos propiedades y comportamiento 
específicos como ABS, Turbo, etc. 

Un ejemplo basado en programación consistiría en disponer de la ya conocida clase Empleado. Esta 
clase se ocupa, como ya sabemos, de las operaciones de alta de empleados, pago de nóminas, etc.; 
pero en un momento dado, surge la necesidad de realizar pagos a empleados que no trabajan en la 
central de la empresa, ya que se trata de comerciales que pasan la mayor parte del tiempo 
desplazándose. Para realizar dichos pagos usaremos Internet, necesitando el número de tarjeta de 
crédito y la dirección email del empleado. Resolveremos esta situación creando la clase derivada 
CiberEmpleado, que hereda de la clase Empleado, en la que sólo tendríamos que añadir las nuevas 
propiedades y métodos para las transacciones electrónicas, puesto que las operaciones tradicionales ya 
las tendríamos disponibles por el mero hecho de haber heredado de Empleado. 
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Jerarquías de clases 

Como decíamos en un apartado anterior, uno de los fines de la OOP consiste en la clasificación del 
código; para ello se emplean jerarquías o árboles de clases, en los que a base de niveles, se muestra un 
conjunto de clases conectadas por una relación de herencia. Observemos el esquema de la Figura 105, 
en el que se muestra un ejemplo de la jerarquía de clases de medios de transporte. 



Barco 


Tren 


Transbordador 


Transatlántico 


Automóvil 







Turismo 


TodoTeneno 


Figura 105. Jerarquía de clases de medios de transporte. 


En esta representación de ejemplo, como nivel superior de la jerarquía o clase base estaría Medios de 
transporte, de la que se derivarían las clases Barco, Tren, Automóvil, y a su vez, de estas últimas, 
partirían nuevas clases hijas. 


Relaciones entre objetos 

Los objetos existentes en una aplicación se comunican entre sí mediante una serie de relaciones que 
describimos a continuación. 


Herencia 

Como acabamos de describir en el apartado sobre características de la OOP, cuando a partir de una 
clase existente, creamos una nueva clase derivada, esta nueva clase dispone de todas las propiedades y 
métodos de la clase base, mas el código propio que implemente. 

Para reconocer si existe esta relación entre dos objetos, debemos realizar un análisis sintáctico sobre la 
misma usando la partícula “es un”. 
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Tomando como ejemplo los objetos Empleado, CiberEmpleado y Factura, podemos decir que sí hay 
una relación de herencia entre Empleado y CiberEmpleado, ya que al analizar la frase “Un objeto 
CiberEmpleado es un Empleado”, el resultado es verdadero. 

No ocurre lo mismo entre los objetos CiberEmpleado y Factura, ya que el análisis de la frase “Un 
objeto CiberEmpleado es una Factura”, devuelve falso. 


Pertenencia 

Los objetos pueden estar formados a su vez por otros objetos. Un objeto Factura puede estar 
compuesto por objetos CabeceraFactura, LineaFactura, etc. Se dice en este caso que hay una relación 
de pertenencia, puesto que existe un conjunto de objetos que pertenecen a otro objeto o se unen para 
formar otro objeto. A este tipo de relación se le denomina también Contenedora. 

Para reconocer si existe esta relación entre dos objetos, debemos realizar un análisis sintáctico sobre la 
misma usando la partícula “tiene un”. Así, por ejemplo, la frase “Un objeto Factura tiene un objeto 
LineaFactura” devolvería verdadero. 


Utilización 

Hay situaciones en que un objeto utiliza a otro para realizar una determinada tarea, sin que ello 
suponga la existencia de una relación de pertenencia entre dichos objetos. 

Por ejemplo, un objeto Ventana puede utilizar un objeto Empleado para mostrar al usuario las 
propiedades del empleado, sin necesidad de que el objeto Empleado sea propiedad del objeto Ventana. 

Nótese la importante diferencia entre esta relación y la anterior, ya que aquí, el objeto Ventana a través 
de código, creará, o le será pasado como parámetro, un objeto Empleado, para poder mostrarlo en el 
área de la ventana. 

Para reconocer si existe esta relación entre dos objetos, debemos realizar un análisis sintáctico sobre la 
misma empleando la partícula “usa un”. Así, por ejemplo, la frase “Un objeto Ventana usa un objeto 
Empleado” devolvería verdadero. 


Reutilización 

Un objeto bien diseñado, puede ser reutilizado en otra aplicación de modo directo o creando una clase 
derivada a partir de él. Este es uno de los objetivos perseguidos por la OOP, aprovechar en lo posible 
el código ya escrito, ahorrando un considerable tiempo en el desarrollo de programas. 


Análisis y diseño orientado a objetos 

Antes de comenzar la escritura del programa, se hace necesario realizar un análisis de los problemas a 
resolver, que nos permita identificar qué procesos debemos codificar. 

Si pretendemos además, abordar la programación utilizando un enfoque orientado a objetos, debemos 
emplear técnicas adecuadas a este tipo de programación. 
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Para aunar todas las tendencias de análisis orientadas a objetos existentes, ha aparecido el Lenguaje 
Unificado de Modelado o UML (Unified Modeling Language), cuyo objetivo es proporcionar un 
verdadero sistema de análisis y diseño aplicado a objetos. 

La descripción de UML es algo que se encuentra fuera del alcance de este texto, por lo que 
recomendamos al lector consultar la documentación existente al respecto, de manera que pueda 
familiarizarse con este aspecto de la creación de un programa. 

A modo de breve recomendación podemos decir, que cuando se realiza un análisis basado en 
procedimientos, de los problemas planteados, se identifican los verbos como elementos de los 
procesos a trasladar a procedimientos y funciones. Sin embargo, cuando se trata de un análisis basado 
en objetos, se identifican en este caso los nombres existentes en los procesos, como elementos a 
trasladar a objetos. 

Tomemos el siguiente planteamiento: “Crear una aplicación en la que podamos realizar sobre una base 
de datos, las siguientes operaciones: añadir, borrar y modificar clientes. Por otro lado, será necesario 
crear facturas, grabando sus datos generales y calcular su importe total”. 

Analizando la exposición del anterior problema, si necesitáramos resolverlo mediante una aplicación 
con enfoque procedural, separaríamos los verbos para crear los siguientes procedimientos: 
AñadirCliente( ), BorrarCliente( ), ModificarCliente( ), GrabarFac(), CalcularTotalFac(). 

Si por el contrario efectuamos sobre la misma exposición, un análisis orientado a objetos, extraeríamos 
los siguientes nombres como los objetos a crear: Cliente, Factura. 

Para el objeto Cliente, definiríamos entre otras, las propiedades Nombre, Apellidos, Dirección, DN1, 
etc; creando para su comportamiento, los métodos Añadir( ), Borrar( ), Modificar(), etc. 

Para el objeto Factura, definiríamos entre otras, las propiedades Número, Fecha, Importe, etc; creando 
para su comportamiento, los métodos Grabar(), CalcularTotal ( ), etc. 

Una vez obtenido el correspondiente análisis, pasaremos a la siguiente fase del desarrollo, la escritura 
de las diferentes clases que van a componer nuestro programa, y que veremos a continuación. 


Creación de clases 

Volvamos al ejemplo expuesto al comienzo de este tema, en el cuál, un programador necesitaba 
desarrollar los procesos de un empleado dentro de una aplicación de gestión empresarial. Recordemos 
que se planteaba el problema de que ante el crecimiento del programa, el mantenimiento del código, al 
enfocarse de modo procedural, podía volverse una tarea realmente difícil. 

Vamos a replantear este diseño, encauzándolo bajo una perspectiva orientada a objeto, que nos permita 
un uso más sencillo del código y un mantenimiento también más fácil. Para lo cual desarrollaremos 
una clase que contenga todas las operaciones a realizar por el empleado; en definitiva, crearemos la 
clase Empleado, cuyo proceso describiremos a continuación. 

Iniciaremos en primer lugar VS.NET, creando un proyecto de tipo consola. A continuación 
seleccionaremos el menú Proyecto + Agregar clase, que nos mostrará la ventana para agregar nuevos 
elementos al proyecto. El nombre por defecto asignado por el IDE para la clase será Classl; 
cambiaremos dicho nombre por Empleado, y pulsaremos Abrir. Ver Figura 106. 
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Figura 106. Añadir una clase a un proyecto. 


Se creará de esta forma un nuevo fichero de código (EMPLEADO.VB), mostrándose el editor de 
código con su contenido. Observemos en este sentido, que la definición de una clase se realiza 
utilizando las palabras clave Class...End Class; entre estas palabras escribiremos el código de la clase. 
Ver Código fuente 218. 


Public Class Empleado 
End Class 

Código fuente 218 


Organización de clases en uno o varios ficheros de código 

Como ya se ha explicado en los temas sobre el lenguaje, una clase es uno de los tipos de contenedor 
lógico disponible dentro del entorno de .NET Framework, y su organización puede realizarse al igual 
que los módulos (Module) de código estándar del entorno, es decir, cada vez que añadimos una clase 
al proyecto utilizando el IDE, se crea por defecto, un fichero de código por clase. 

Sin embargo, también podemos incluir varias clases dentro del mismo fichero de código, o mezclar 
clases con módulos y otro tipo de contenedores lógicos, cambiando si es necesario el nombre del 
fichero, como ya se explicó en los apartados sobre el lenguaje. El ejemplo del Código fuente 219 
muestra dos clases creadas dentro del mismo fichero. 


' Fichero MisClases.VB 
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Public Class Empleado 

1 código de la clase 

I 

I 

End Class 

Public Class Factura 

' código de la clase 

I 

End Class 

Código fuente 219 


Código de clase y código cliente 

Antes de comenzar a realizar pruebas con las clases que vayamos escribiendo, debemos explicar dos 
conceptos referentes a la escritura de código orientado a objeto, ya que en función del lugar desde el 
que sea manipulado, debemos distinguir entre código de clase y código cliente. 

• Código de clase. Se trata del código que escribimos para crear nuestra clase, y que se 
encuentra entre las palabras clave Class...End Class. 

• Código cliente. Se trata del código que hace uso de la clase mediante la acción de crear o 
instanciar objetos a partir de la misma. Aquí se englobaría todo el código que se encuentra 
fuera de la clase. 


Reglas de ámbito generales para clases 

Las normas de ámbito para variables y procedimientos escritos dentro de una clase son las mismas que 
las ya explicadas para la programación a través de módulos, pero debemos tener en cuenta que en el 
caso actual, el ámbito a nivel de módulo debe ser equiparado con el ámbito a nivel de clase. 

Por ejemplo, cuando declaremos una variable dentro de las palabras clave Class...End Class, pero 
fuera de todo procedimiento de la clase, dicha variable tendrá un ámbito a nivel de clase, siendo 
accesible por los procedimientos de la clase o por todo el código, según la hayamos definido privada o 
pública. 

Existen unas reglas de ámbito específicas para los miembros de una clase que serán comentadas en un 
apartado posterior. 


Instanciación de objetos 

En este momento, nuestra clase Empleado cuenta con el código mínimo para poder ser utilizada, para 
lo que debemos instanciar objetos a partir de la misma. 

Como ya se explicó en un apartado anterior, el proceso de instanciación consiste en crear un objeto a 
partir de las especificaciones de la clase. El modo más común de trabajar con una instancia de una 
clase, o lo que es lo mismo, con un objeto, pasa por asignar dicho objeto a una variable. 


228 











© Grupo EIDOS 


10. Programación orientada a objeto (OOP) 


Instanciaremos un objeto en el código utilizando la sintaxis de declaración de variables junto a la 
palabra clave New, empleando como tipo de dato el nombre de la clase. Todo este código lo podemos 
situar en un módulo dentro del proyecto, bien en un fichero de código aparte o en el mismo fichero en 
donde estamos escribiendo la clase. El Código fuente 220 muestra las formas disponibles de instanciar 
un objeto y asignarlo a una variable. 


Module General 
Sub Main() 

' declarar primero la variable 
' y después instanciar el objeto 
Dim loEmpleadol As Empleado 
loEmpleadol = New Empleado() 

' declaración e instanciación simultánea 
Dim loEmpleado2 As New Empleado() 

' declaración y posterior instanciación en 
' la misma línea de código 

Dim loEmpleado3 As Empleado = New Empleado() 
End Sub 

End Module 

Código fuente 220 


Si bien es cierto que ya es posible crear objetos a partir de nuestra clase, no lo es menos el hecho de 
que no podemos hacer grandes cosas con ellos, puesto que la clase se encuentra vacía de código. 
Debemos añadir propiedades y métodos para conseguir que los objetos actúen en nuestra aplicación. 

Miembros de la clase 

Los elementos de una clase que contienen sus datos y definen su comportamiento, es decir, las 
propiedades y métodos, reciben además el nombre de miembros de la clase, término que también 
utilizaremos a partir de ahora. 


Definir la información de la clase 

Existen dos formas de almacenar los datos o información en una clase: a través de campos de clase y 
de propiedades. 

Desde la perspectiva del programador que hace uso de una clase para crear objetos, la diferencia entre 
un campo o una propiedad resulta imperceptible; sin embargo, desde el punto de vista del programador 
de la clase existen claras diferencias, concernientes fundamentalmente, a preservar la encapsulación 
del código de la clase. 

El uso de campos o propiedades para una clase es una cuestión de diseño, no pudiendo afirmar 
categóricamente que un tipo de almacenamiento de datos sea mejor que otro. 
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Creación de campos para la clase 

Un campo de una clase no es otra cosa que una variable, generalmente con ámbito público, accesible 
desde el exterior de la clase. El Código fuente 221 muestra la creación de un campo para la clase 
Empleado. 


Public Class Empleado 

1 declaramos un campo en la clase 
1 para guardar el identificador 
' del empleado 

Public pildentificador As Integer 
End Class 

Código ñiente 221 


Para manipular un campo desde código cliente, debemos instanciar un objeto, a continuación de la 
variable que lo contiene situar un punto ( . ), y finalmente el nombre del campo a manipular. Este 
modo de operación es común para todos los miembros de clases, tanto creadas por el programador, 
como pertenecientes a la propia plataforma .NET Framework. Ver el Código fuente 222. 


Module General 
Sub Main() 

Dim loEmpleado As Empleado 

1 instanciar el objeto 
loEmpleado = New Empleado!) 

' asignar un valor al campo del objeto 
loEmpleado.pildentificador = 75 

' mostrar el valor de un campo del objeto 

Consolé.WriteLine("El valor del campo es: {0}", loEmpleado.pildentificador) 
Consolé.ReadLine() 

End Sub 

End Module 

Código fuente 222 


Como habrá observado el lector, al escribir el nombre del objeto y el punto, aparece una lista con los 
miembros de la clase accesibles desde el código cliente. De momento sólo disponemos del campo y el 
método GetType( ), que devuelve un objeto de la clase Type, conteniendo información sobre el tipo 
del objeto. Esta lista irá aumentando progresivamente según añadimos más propiedades y métodos a la 
clase, constituyendo una inestimable ayuda para el programador, que le evita el tener que recordar los 
nombres de todos los elementos de la clase, o consultar continuamente su documentación. 
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Creación de propiedades para la clase 

Una propiedad en la clase se define, por norma general, mediante dos elementos: una variable de 
propiedad y un procedimiento de propiedad. 

La variable de propiedad, tal y como su nombre indica, es una variable con ámbito privado a nivel de 
la clase, que se encarga de guardar el valor de la propiedad. Por su parte el procedimiento de 
propiedad o Property, es el encargado de actuar de puente entre el código cliente y la variable de 
propiedad, realizando las operaciones de acceso y asignación de valores a dicha variable. 

Por lo tanto, para crear una propiedad en nuestra clase, declararemos en primer lugar una variable 
Prívate, y en segundo lugar un procedimiento de tipo Property, que consta de dos bloques: Get, para 
devolver el valor de la variable de propiedad; y Set, para asignárselo. La sintaxis a emplear se muestra 
en el Código fuente 223. 


Public Class Empleado 

' declarar una variable de propiedad 
' para la propiedad Nombre 
Private msNombre As String 

1 declarar el procedimiento Property 
1 para la propiedad Nombre 
Public Property Nombre() As String 
1 bloque Get para devolver 
1 el valor de la propiedad 
Get 

Return msNombre 
End Get 

' bloque Set para asignar 
1 valor a la propiedad 
Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 

End Class 

Código ñiente 223 


Cuando declaramos un procedimiento Property, debemos, al igual que en una función, tipificarlo, ya 
que una de sus labores consiste en la devolución de un valor. 

Para devolver el valor, en el bloque Get podemos utilizar la palabra clave Return, seguida del valor de 
retomo, o bien la sintaxis clásica de asignar el valor al nombre de la función. Nuestra recomendación 
es el uso de Retum por las ventajas explicadas en los apartados sobre el lenguaje. 

En cuanto a la asignación de valor, el bloque Set utiliza un parámetro con el nombre Valué, que 
contiene el valor para asignar a la propiedad. 

Observe el lector que al declarar un procedimiento de este tipo, el IDE de VS.NET crea 
automáticamente los correspondientes bloques Get y Set, ahorrando ese trabajo al programador. 

A la hora de manipular una propiedad desde el código cliente, y como ya habíamos apuntado 
anteriormente, la diferencia no será notoria, como muestra el Código fuente 224. La única forma de 
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hacer más patente el uso del procedimiento Property, consiste en ejecutar el programa utilizando el 
depurador; de esta manera comprobaremos como el flujo de la ejecución salta a los bloques Get y Set 
al manejar la variable del objeto. 


Sub Main() 

Dim loEmpleado As New Empleado() 

1 asignar valor a una propiedad 
loEmpleado.Nombre = "Guillermo" 

1 mostrar el valor de una propiedad del objeto 
Consolé.WriteLine("El valor de la propiedad Nombre es: {o}", 
loEmpleado.Nombre) 

Consolé.ReadLine() 

End Sub 

Código ñiente 224 


Dado que los procedimientos Property no son otra cosa que rutinas de código, también se les 
denomina métodos de acceso y asignación en el argot OOP. 


Ventajas en el uso de propiedades 

Comprobada la facilidad de los campos de clase, el lector se estará preguntando en estos momentos 
por qué debe utilizar propiedades, si en definitiva, su finalidad es la misma que los campos: guardar un 
valor en el objeto. 

Existen varias y poderosas razones, por las cuales nos debemos decantar en muchas ocasiones, hacia el 
uso de propiedades. En los siguientes apartados haremos una descripción de ellas. 


Encapsulación a través de propiedades 

Una de las características de la OOP, la encapsulación, establece que el código de una clase debe 
permanecer, siempre que sea posible, protegido de modificaciones no controladas del exterior (código 
cliente). Nuestra clase debe actuar como una especie de caja negra, que expone un interfaz para su uso, 
pero que no debe permitir el acceso a la implementación de dicho interfaz. 

Supongamos que en nuestra clase Empleado necesitamos crear un elemento para guardar el sueldo 
pagado, pero el importe del sueldo deberá estar entre un rango de valores en función de la categoría 
del empleado. Si la categoría es 1, el sueldo estará entre 1 y 200, mientras que si la categoría es 2, el 
sueldo podrá llegar hasta 300. Si abordamos este problema utilizando campos de clase, puede ocurrir 
lo que mostramos en el Código fuente 225. 


Module General 
Sub Main() 

Dim loEmpleado As Empleado 
loEmpleado = New Empleado() 
loEmpleado.psNombre = "Juan" 
loEmpleado.piCategoria = 1 
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' atención, el sueldo para este empleado 
1 debería estar entre 1 a 200, debido a su categoría 
loEmpleado.pdbSueldo = 250 
End Sub 

End Module 

Public Class Empleado 

Public msNombre As String 
Public miCategoria As Integer 
Public mdbSueldo As Double 
End Class 

Código fuente 225 


¿Que está sucediendo aquí?. Hemos creado un objeto empleado al que le hemos dado categoría 1, sin 
embargo le estamos asignando un sueldo que no corresponde a su categoría, pero se nos permite 
hacerlo sin ningún problema, ya que no existe un medio de control que nos lo impida. 

Afrontando el problema mediante el uso de propiedades, contamos con la ventaja de escribir código de 
validación en los correspondientes procedimientos Property; con ello encapsulamos el código de la 
clase, manteniéndolo a salvo de asignaciones incoherentes. Veamos esta solución en el Código fuente 
226 . 


Module General 
Sub Main() 

Dim loEmpleado As Empleado 
loEmpleado = New Empleado() 

loEmpleado.psNombre = "Pedro" 
loEmpleado.Categoría = 1 

loEmpleado.Sueldo = 250 

Consolé.WriteLine("Asignación incorrecta") 

Consolé.WriteLine("Empleado {0} - Categoría {1} - Sueldo {2}", 

loEmpleado.psNombre, loEmpleado.Categoría, loEmpleado.Sueldo) 

loEmpleado.Sueldo = 175 

Consolé.WriteLine("Asignación correcta") 

Consolé.WriteLine("Empleado {0} - Categoría {1} - Sueldo {2}", 

loEmpleado.psNombre, loEmpleado.Categoría, loEmpleado.Sueldo) 

Consolé.ReadLine() 

End Sub 

End Module 

Public Class Empleado 

Public psNombre As String 

1 variables de propiedad 
Prívate miCategoria As Integer 
Prívate mdbSueldo As Double 

1 procedimientos de propiedad 
Public Property Categoría() As Integer 
Get 

Return miCategoria 
End Get 
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Set(ByVal Valué As Integer) 
miCategoria = Valué 
End Set 
End Property 

Public Property Sueldo() As Double 
Get 

Return mdbSueldo 
End Get 

1 cuando asignamos el valor a esta propiedad, 

' ejecutamos código de validación en el bloque Set 
Set(ByVal Valué As Double) 

1 si la categoría del empleado es 1... 

If miCategoria = 1 Then 

1 ...pero el sueldo supera 200 

If Valué > 200 Then 

1 mostrar un mensaje y asignar un cero 

Consolé.WriteLine("La categoría no corresponde con el sueldo") 
mdbSueldo = 0 

Else 

' si todo va bien, asignar el sueldo 
mdbSueldo = Valué 
End If 
End If 

End Set 
End Property 

End Class 

Código ñiente 226 


Propiedades de sólo lectura o sólo escritura 

Se nos plantea ahora un nuevo caso para nuestra clase Empleado: debemos guardar el valor del código 
de cuenta bancaria del empleado en el objeto, pero sin permitir que dicha información sea accesible 
desde el código cliente. 

Igualmente y en función de los primeros dígitos de la cuenta bancaria, necesitamos mostrar el nombre 
de la entidad, pero sin permitir al código cliente su modificación, ya que esta va a ser siempre una 
operación que debe calcular el código de la clase. 

Utilizando campos de clase no es posible resolver esta situación, ya que al ser de ámbito público, 
permiten tanto la escritura como lectura de sus valores. 

Pero si empleamos propiedades, estas nos permiten la creación de las denominadas propiedades de 
sólo lectura o sólo escritura, en las que utilizando las palabras clave ReadOnly y WriteOnly, 
conseguimos que a una determinada propiedad, sólo podamos asignarle o recuperar su valor. 

Debido a esto, en una propiedad ReadOnly no podremos escribir el bloque Set, ya que no tendría 
sentido, puesto que no se va a utilizar. Lo mismo podemos aplicar para una propiedad WriteOnly, sólo 
que en esta, el bloque que no podremos codificar será Get. 

Igualmente obtendremos un error del compilador, si en el código cliente intentamos asignar un valor a 
una propiedad ReadOnly, u obtener un valor de una propiedad WriteOnly. 
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Veamos a continuación, en el Código fuente 227, un ejemplo de cómo resolver el problema 
comentado al comienzo de este apartado. 


Module General 
Sub Main() 

Dim loEmpleado As Empleado 
loEmpleado = New Empleado() 

loEmpleado.psNombre = "Pedro" 

1 a esta propiedad sólo podemos asignarle 
' valor, si intentamos obtenerlo, se producirá 
1 un error 

loEmpleado.CuentaBancaria = "2222-56-7779995555" 

1 en esta línea, la propiedad EntidadBancaria sólo 
' nos permite obtener valor, si intentamos asignarlo 
' se producirá un error 

Consolé.WriteLine("La entidad del empleado {o} es { 1 }", 
loEmpleado.psNombre, loEmpleado.EntidadBancaria) 
Consolé.ReadLine() 

End Sub 

End Module 

Public Class Empleado 
1 campo de clase 
Public psNombre As String 

' variables de propiedad 
Private msCtaBancaria As String 
Private msEntidad As String 

1 variables diversas 

Private msCodigoEntidad As String 

' esta propiedad sólo permite asignar valores, 

' por lo que no dispone de bloque Get 

Public WriteOnly Property CuentaBancaria() As String 
Set(ByVal Valué As String) 

Select Case Left(Valué, 4) 

Case "lili" 

msEntidad = "Banco Universal" 

Case "2222" 

msEntidad = "Banco General" 

Case "3333" 

msEntidad = "Caja Metropolitana" 

Case Else 

msEntidad = "entidad sin catalogar" 

End Select 
End Set 
End Property 

' esta propiedad sólo permite obtener valores, 

1 por lo que no dispone de bloque Set 

Public ReadOnly Property EntidadBancaria() As String 
Get 

Return msEntidad 
End Get 
End Property 
End Class 

Código ñiente 227 
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Propiedades virtuales 

Otra de las ventajas del uso de propiedades reside en la posibilidad de definir propiedades virtuales ; es 
decir, una propiedad que no tenga una correspondencia directa con una variable de propiedad, ya que 
podemos crear un procedimiento Property que no esté obligatoriamente asociado con una variable. 

Siguiendo con la clase Empleado, en esta ocasión creamos una propiedad para almacenar la fecha en la 
que el empleado ha sido incorporado a la empresa; esto no entraña ninguna novedad. Sin embargo, 
seguidamente necesitamos disponer de una propiedad que nos permita mostrar el nombre del mes en el 
que se ha dado de alta al empleado. 

Podemos resolver esta cuestión creando una variable de propiedad, guardando en ella una cadena con 
el nombre del mes; pero si disponemos de la fecha de alta, que ya contiene el mes, nos ahorraremos 
ese trabajo extra creando una propiedad, en este caso de sólo lectura, en la que extraigamos el nombre 
del mes de la fecha de alta y lo devolvamos como resultado. Veamos como hacerlo en el Código 
fuente 228. 


Module General 
Sub Main() 

Dim loEmpleado As Empleado 
loEmpleado = New Empleado() 

loEmpleado.psNombre = "Antonio" 
loEmpleado.FechaAlta = "12/6/2002" 

' mostramos el mes de alta, que corresponde 
1 a una propiedad virtual del objeto 

Consolé.WriteLine("El empleado {0} se ha dado de alta en el mes de {1}", 
loEmpleado.psNombre, loEmpleado.MesAlta) 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 
1 campo de clase 
Public psNombre As String 

1 variables de propiedad 
Private mdtFechaAlta As Date 

' propiedad para manejar la fecha 
1 de alta del empleado 
Public Property FechaAlta() As Date 
Get 

Return mdtFechaAlta 
End Get 

Set(ByVal Valué As Date) 
mdtFechaAlta = Valué 
End Set 
End Property 

1 propiedad virtual 

' en ella devolvemos el nombre del mes en el que se ha dado 
1 de alta al empleado, utilizando la variable de otra propiedad 
Public ReadOnly Property MesAlta() As String 
Get 

Return Format(mdtFechaAlta, "MMMM") 

End Get 
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End Property 
End Class 


Código fuente 228 


Nombres de propiedad más naturales 

Cuando desde código cliente trabajamos con objetos, estos ofrecen habitualmente nombres de 
propiedades claros y sin notaciones. 

En el caso de la clase Empleado tenemos un inconveniente a este respecto con el campo de clase 
correspondiente al nombre del empleado, ya que en él utilizamos convenciones de notación para 
facilitar el mantenimiento del código, pero por otra parte, estamos contribuyendo a dificultar la 
legibilidad de los miembros de la clase desde el código cliente. 

Es cierto que podemos obviar las convenciones de notación en el código, pero esto, como ya 
comentamos en el apartado sobre convenciones de código, puede hacer que la lectura del programa sea 
más complicada. 

Como hemos comprobado también en los pasados ejemplos, si utilizamos propiedades, podemos 
mantener nuestras normas de notación en cuanto a las variables de la clase, sea cual sea su tipo, y 
ofrecer al código cliente, nombres más naturales a través de los procedimientos Property. 

Por lo tanto, si en lugar de utilizar un campo de clase para el nombre del empleado, la convertimos en 
una propiedad, habremos ganado en claridad de cara al programador usuario de nuestra clase. 
Veámoslo en el Código fuente 229. 


Module General 
Sub Main() 

Dim loEmpleado As New Empleado() 

' al utilizar un objeto desde código cliente 
1 siempre es más sencillo manipular la 
1 propiedad Nombre, que msNombre, en cuanto 
' a claridad del código se refiere 
loEmpleado.Nombre = "Juan" 

End Sub 
End Module 

Public Class Empleado 

1 antes usábamos un campo de clase... 

'Public psNombre As String <- 

' ...pero lo convertimos en una variable de propiedad... 

Private msNombre As String 

1 ... creando su procedimiento de propiedad correspondiente 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 
End Class 

Código fuente 229 
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Propiedades predeterminadas 

Una propiedad predeterminada o por defecto, es aquella que nos permite su manipulación omitiendo el 
nombre. 

Al declarar una propiedad por defecto, debemos utilizar la palabra clave Default al comienzo de la 
sentencia de declaración, siendo obligatorio además, que dicho procedimiento de propiedad reciba al 
menos un parámetro. 

La ventaja a la hora de trabajar con una propiedad de este tipo en un objeto, reside en que no 
necesitamos indicar su nombre, sólo es preciso especificar su parámetro. 

Debido a la naturaleza de este tipo de propiedad, sólo es posible crear una propiedad predeterminada 
en cada clase. 

Una de las situaciones más idóneas en una clase para crear una propiedad predeterminada, serían 
aquellos elementos en los que tengamos que manejar un conjunto de valores a través de un array, es 
decir, la variable de propiedad sería el array que manipularíamos a través del correspondiente 
procedimiento de propiedad. De esta manera, para asignar y obtener valores de este tipo de propiedad, 
tendremos que utilizar el índice del array que internamente la gestiona. 

Pongamos como ejemplo, el hecho de que el trabajo desempeñado por el empleado le supone realizar 
viajes a diferentes ciudades; para llevar un control de los viajes realizados, crearemos una nueva 
propiedad, que además será predeterminada. Veamos este ejemplo en el Código fuente 230. 


Module General 
Sub Main() 

Dim loEmpleado As New Empleado() 

Dim liContador As Integer 

' primero manejamos la propiedad predeterminada 
1 igual que una normal 
loEmpleado.Viajes(0) = "Valencia" 

1 aquí manipulamos la propiedad predeterminada 
1 sin indicar su nombre 
loEmpleado(1) = "Toledo" 

For liContador = 0 To 1 

Consolé.WriteLine("Visita: {0} - Ciudad: {1}", 
liContador, loEmpleado(liContador)) 

Next 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

' este es el array asociado a 
1 la propiedad predeterminada 
Private msViajesO As String 

1 declaración de la propiedad predeterminada 

Default Public Property Viajes(ByVal Indice As Integer) As String 
Get 

1 para devolver un valor, empleamos 
1 el número de Indice pasado 
1 como parámetro 
Return msViajes(Indice) 
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End Get 

Set(ByVal Valué As String) 

' para asignar un valor a la propiedad, 

' comprobamos primero si el array está vacío 

1 comprobar si el array está vacío, 

' al ser el array también un objeto, 

' utilizamos el operador Is 
If msViajes Is Nothing Then 
ReDim msViajes(0) 

Else 

' si el array ya contenía valores, 

1 añadir un nuevo elemento 

ReDim Preserve msViajes(UBound(msViajes) + 1) 
End If 

' asignar el valor al array 
msViajes(Indice) = Valué 
End Set 
End Property 

End Class 

Código ñiente 230 


El uso de propiedades predeterminadas proporciona una cierta comodidad a la hora de escribir el 
código, sin embargo, si nos acostumbramos a especificar en todo momento las propiedades en el 
código, ganaremos en legibilidad. 
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Creación de métodos para la clase 

Para crear un método en una clase debemos escribir un procedimiento de tipo Sub o Function, en 
función de si necesitamos devolver o no, un valor desde el método. Por este motivo, podemos deducir 
que un método es lo mismo que un procedimiento, siendo las diferencias existentes entre ambos tan 
sólo a nivel conceptual: mientras que a una rutina de código dentro de un módulo se le denomina 
procedimiento, si la escribimos dentro de una clase se le denomina método. 

Los métodos, tal y como explicamos en los primeros apartados teóricos sobre OOP, son aquellos 
miembros de una clase que definen el comportamiento de los objetos, como consecuencia de las 
acciones que llevan a cabo al ser ejecutados. Veamos a continuación, un ejemplo concreto de creación 
de método. 

En la clase Empleado necesitamos realizar un cálculo del día en que va a finalizar un empleado sus 
vacaciones; para ello precisamos conocer la fecha de comienzo y la cantidad de días que va a estar de 
vacaciones, por lo que escribiremos un método en nuestra clase al que llamaremos 
CalcularVacaciones(); a este método le pasaremos los parámetros de la fecha de inicio y el número de 
días, devolviendo, al ser de tipo Function, la fecha de finalización del periodo vacacional. 


Module General 
Sub Main() 

1 instanciar objeto Empleado 
Dim loEmpleado As Empleado 
loEmpleado = New Empleado() 
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' asignar valores a propiedades 
loEmpleado.Identificador = 78 
loEmpleado.Nombre = "Antonio" 
loEmpleado.Apellidos = "Iglesias" 

1 llamar a método 

loEmpleado.CalcularVacaciones("20/07/2002", 15) 
End Sub 
End Module 

Public Class Empleado 

' variables de propiedad 
Private milD As Integer 
Private msNombre As String 
Private msApellidos As String 

' procedimientos de propiedad 

Public Property Identificador() As Integer 


End Property 

Public Property Nombre() As String 


End Property 

Public Property Apellidos() As String 


End Property 
' métodos 

Public Sub CalcularVacaciones(ByVal ldtlnicio As Date, 

ByVal liDias As Integer) 

' en este método calculamos el periodo 
' de vacaciones del empleado, 

1 mostrando los resultados en consola 
Dim ldtFinal As Date 

ldtFinal = DateAdd(Datelnterval.Day, liDias, ldtlnicio) 
Consolé.WriteLine("Empleado {0} - {1} {2}", __ 

Identificador, Nombre, Apellidos) 

Consolé.WriteLine("Vacaciones desde {0} hasta {l}", 
Format(ldtlnicio, "dd/MMM/yy"), 

Format(ldtFinal, "d/MMMM/yyyy")) 

Consolé.ReadLine() 

End Sub 

End Class 

Código ñiente 231 


Llegados a este punto, hemos completado todos los pasos elementales en cuanto a la creación de una 
clase. Retomemos pues, el caso del ejemplo expuesto anteriormente, de manera que si sustituimos el 
enfoque procedural de los procesos del empleado, por uno orientado a objeto, la clase Empleado 
resultante podría ser algo similar a la mostrada en el Código fuente 232. 


Public Class Empleado 

1 variables de propiedad 
Private milD As Integer 
Private msNombre As String 
Private msApellidos As String 
Private msDNI As String 
Private mdtFechaAlta As Date 
Private mdbSueldo As Double 
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Private mdtlnicioVacaciones As Date 
Private miDiasVacaciones As Integer 

' procedimientos de propiedad 
Public Property Identificador() As Integer 
Get 

Return miID 
End Get 

Set(ByVal Valué As Integer) 
milD = Valué 
End Set 
End Property 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 

Public Property Apellidos() As String 
Get 

Return msApellidos 
End Get 

Set(ByVal Valué As String) 
msApellidos = Valué 
End Set 
End Property 

Public Property DNI() As String 
Get 

Return msDNI 
End Get 

Set(ByVal Valué As String) 
msDNI = Valué 
End Set 
End Property 

Public Property FechaAlta() As Date 
Get 

Return mdtFechaAlta 
End Get 

Set(ByVal Valué As Date) 
mdtFechaAlta = Valué 
End Set 
End Property 

Public Property Sueldo() As Double 
Get 

Return mdbSueldo 
End Get 

Set(ByVal Valué As Double) 
mdbSueldo = Valué 
End Set 
End Property 

Public Property InicioVacaciones() As Date 
Get 

Return mdtlnicioVacaciones 
End Get 

Set(ByVal Valué As Date) 

mdtlnicioVacaciones = Valué 
End Set 
End Property 
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Public Property DiasVacaciones() As Integer 
Get 

Return miDiasVacaciones 
End Get 

Set(ByVal Valué As Integer) 
miDiasVacaciones = Valué 
End Set 
End Property 

Public Sub CalcularVacaciones() 

1 en este método calculamos el periodo 
' de vacaciones del empleado, 

' mostrando los resultados en consola 
Dim ldtFinal As Date 

ldtFinal = DateAdd(Datelnterval.Day, miDiasVacaciones, mdtlnicioVacaciones) 
Consolé.WriteLine("Empleado { 0 } - {1} {2}", __ 
miID, msNombre, msApellidos) 

Consolé.WriteLine("Vacaciones desde {0} hasta {l}", 

Format(mdtlnicioVacaciones, "dd/MMM/yy"), __ 

Format(ldtFinal, "d/MMMM/yyyy")) 

Consolé.ReadLine() 

End Sub 

Public Sub CrearEmpleado() 

' crear un nuevo registro en la base de datos, 

' grabar los valores que debe haber 
1 en las propiedades 


Consolé.WriteLine("Se ha grabado el empleado: {0} - {l} {2}", 
miID, msNombre, msApellidos) 

Consolé.ReadLine() 

End Sub 

Public Sub TransfNomina() 

1 realizamos la transferencia de nómina 
1 a un empleado, utilizando su identificador 


obtener los datos del empleado de la base de datos 
y traspasarlos a las propiedades 


' visualizamos el resultado 
Consolé.WriteLine("Pago de nómina") 

Consolé.WriteLine("Empleado: {0} {l}", msNombre, msApellidos) 
Consolé.WriteLine("Ingresado: {0}", mdbSueldo) 

Consolé.ReadLine() 

End Sub 

Public Sub MostrarEmpleado() 

1 buscar la información del empleado en la base de datos 
' usando el valor de la propiedad identificador 
Dim lsDatosEmpleado As String 


Consolé.WriteLine("El empleado seleccionado es: {o}", msNombre, 
msApellidos) 

Consolé.ReadLine() 

End Sub 
End Class 

Código fuente 232 


Gracias a que la codificación de todos los procesos reside ahora en la clase, el código cliente que tenga 
que tratar ahora con el empleado, quedaría simplificado y reducido a lo que se muestra en el Código 
fuente 233. 
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Module General 
Sub Main() 

1 instanciar objeto 
Dim loEmpleado As New Empleado() 
loEmpleado.Identificador = 850 
loEmpleado.Nombre = "Juan" 
loEmpleado.Apellidos = "García" 

' asignar resto de propiedades 


1 llamar a sus métodos 
loEmpleado.MostrarEmpleado() 
loEmpleado.TransfNomina() 


End Sub 
End Module 

Código ñiente 233 


Hemos podido comprobar lo sencillo e intuitivo que resulta trabajar con determinados procesos a 
través de técnicas OOP, ya que una vez codificada la clase, tan sólo hemos de hacer uso de ella 
instanciando el correspondiente objeto; con la ventaja añadida de que podemos tener varios objetos de 
la misma clase funcionando al mismo tiempo. 


¿Cuándo crear una propiedad y cuándo un método? 

Debido a que una propiedad, a través de su procedimiento Property asociado, puede ejecutar código, la 
decisión de escribir cierta operación en una clase empleando una propiedad o un método, es en 
algunas ocasiones difícil, ya que existen procesos que pueden ser resueltos utilizando ambos modos. 

Sin ir más lejos, el método CalcularVacaciones( ), visto en el ejemplo del apartado anterior, bien 
podría haberse resuelto a través de una propiedad, como muestra el Código fuente 234. En él hemos 
incluido sólo las partes modificadas de la clase Empleado para solucionar este problema. 


Module General 
Sub Main() 

' crear objeto Empleado 
Dim loEmpleado As Empleado 
loEmpleado = New Empleado() 

' asignar valores a propiedades 
loEmpleado.Identificador = 78 
loEmpleado.Nombre = "Antonio" 
loEmpleado.Apellidos = "Iglesias" 

1 esta seria la parte nueva en el código cliente: 

1 asignar la fecha de inicio y número de días 
' de vacaciones, y obtener de la propiedad FinVacaciones 
' el día en que termina las vacaciones, aplicando 
1 en este caso, un formato a la fecha obtenida 
loEmpleado.InicioVacaciones = "20/07/2002" 
loEmpleado.DiasVacaciones = 15 

Consolé.WriteLine("El empleado {0} - {1} {2}" & ControlChars.CrLf & 
"finaliza sus vacaciones el día {3}", 
loEmpleado.Identificador, loEmpleado.Nombre, 
loEmpleado.Apellidos, __ 
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Format(loEmpleado.FinVacaciones, "d-MMMM-yy")) 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

1 en esta clase creamos 3 propiedades nuevas, 

1 para guardar la fecha de inicio de vacaciones, 

' los días y la fecha de fin 

' variables de propiedad 


Private mdtlnicioVacaciones As Date 
Private mdtFinVacaciones As Date 
Private miDiasVacaciones As Integer 

1 procedimientos de propiedad 


Public Property InicioVacaciones() As Date 
Get 

Return mdtlnicioVacaciones 
End Get 

Set(ByVal Valué As Date) 

mdtlnicioVacaciones = Valué 
End Set 
End Property 

Public Property DiasVacaciones() As Integer 
Get 

Return miDiasVacaciones 
End Get 

Set(ByVal Valué As Integer) 
miDiasVacaciones = Valué 
End Set 
End Property 

1 en este procedimiento de propiedad 
1 realizamos el cálculo para obtener 
1 la fecha de fin de vacaciones y 
' devolvemos dicha fecha al código cliente 
Public ReadOnly Property FinVacaciones() As Date 
Get 

' calcular la fecha de fin de vacaciones 
Return DateAdd(Datelnterval.Day, 

DiasVacaciones, InicioVacaciones) 

End Get 
End Property 


End Class 

Código ñiente 234 


Queda por lo tanto, en manos del programador, determinar el criterio por el cuál un proceso se 
resolverá mediante una propiedad o un método, debiendo ser una decisión flexible y no basarse en 
unas normas rígidas. 
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La estructura With...End With 

Este elemento del lenguaje nos facilita la escritura de código cuando hacemos referencia a los 
miembros de un objeto, ya que nos ahorra tener que escribir el nombre del objeto, siendo preciso 
indicar sólo sus miembros. La sintaxis de esta estructura se muestra en el Código fuente 235. 


With Objeto 

.Campo 
.Propiedad 
.Método() 

End UIT 

Código fuente 235 


Pongamos como ejemplo, que hemos creado una clase con el nombre Empleado que tiene las 
propiedades Nombre, Apellidos, y el método MostrarDatos( ), para manipular un objeto de esta clase 
mediante With, lo haríamos como muestra el Código fuente 236. 


Dim loEmp As Empleado = New Empleado() 

With loEmp 

.Nombre = "Ana" 

.Apellidos = "Naranjo" 

.MostrarDatos() 

End UIT 

Código fuente 236 


Podemos también anidar esta estructura, con el fin de manipular más de un objeto, veamos el Código 
fuente 237. 


Dim loEmp As Empleado = New Empleado() 

Dim loUsu As New Usuario() 

With loEmp 

.Nombre = "Ana" 

.Apellidos = "Naranjo" 

.MostrarDatos () 

With loUsu 

.AsignarNombre("Jacinto") 

End With 
End With 

Código fuente 237 


Resultados distintos en objetos de la misma clase 

La capacidad de instanciar al mismo tiempo varios objetos de la misma clase nos lleva a una 
interesante cuestión: la obtención de resultados distintos a partir de objetos del mismo tipo, cuando 
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dichos objetos tienen datos diferentes en sus propiedades, ya que aunque el código ejecutado es el 
mismo, los valores de sus propiedades difieren entre sí. 

Un ejemplo ilustrativo de esta situación sería la creación de dos objetos de la clase Empleado, en los 
que cada uno tuviera fechas de comienzo y días de vacaciones distintos. En este caso, aunque los 
objetos son del mismo tipo, la finalización de sus vacaciones sería distinta. Ver el Código fuente 238. 


Dim loEmpleadol As Empleado 
Dim loEmpleado2 As Empleado 

loEmpleadol = New Empleado() 
loEmpleado2 = New Empleado() 

loEmpleadol.InicioVacaciones = "25/07/2002" 
loEmpleadol.DiasVacaciones = 20 

loEmpleado2.InicioVacaciones = "25/07/2002" 
loEmpleado2.DiasVacaciones = 30 

1 los dos objetos son de la clase Empleado, 

1 pero el resultado en este caso al usar la 
' propiedad FinVacaciones no será igual 
1 para estos objetos, dados los diferentes 
1 valores de algunas de sus propiedades 

Código ñiente 238 


Uso de Me para llamar a los miembros de la propia clase 

Cuando desde el código de una clase queramos hacer referencia a un miembro de la propia clase: 
campo, propiedad o método, podemos utilizar la palabra clave Me para manipular dicho elemento. 
Veamos el Código fuente 239. 


Module Modulel 
Sub Main() 

Dim loEmp As New Empleado() 
loEmp.pilD = 980 

loEmp.Nombre = "Almudena Bosque" 
loEmp.VerDatos() 

Consolé.ReadLine() 

End Sub 

End Module 

Public Class Empleado 

Public pilD As Integer 
Private msNombre As String 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 
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Public Sub VerDatos() 

' utilizamos Me en este método para llamar al 
' método NombreMayO que está en la misma clase 
Consolé.WriteLine("Nombre del empleado: {0}", Me.NombreMay()) 
End Sub 

Public Function NombreMayO As String 
Return UCase(msNombre) 

End Function 
End Class 

Código ñiente 239 


Como acabamos de ver, desde el código de la propia clase Empleado llamamos a un método situado 
en la propia clase, anteponiendo la palabra clave Me. 

Aunque el uso de Me no es obligatorio, ya que el compilador reconoce el miembro que queremos 
ejecutar, sí es recomendable ya que facilita la lectura de nuestro código. 


Sobrecarga de métodos o polimorfismo, en una misma 
clase 

La sobrecarga de métodos, tal y como ya vimos en el apartado acerca de la sobrecarga de 
procedimientos en los aspectos básicos del lenguaje, es una técnica que consiste en crear varios 
métodos con idéntico nombre dentro de la misma clase, distinguiéndose entre sí por su lista de 
parámetros. 

Para declarar un método como sobrecargado, debemos utilizar la palabra clave Overloads después del 
modificador de ámbito. Podemos sobrecargar métodos de tipo Sub y Function. 

Una situación que podría requerir la sobrecarga de métodos sería la siguiente: la clase Empleado 
necesita manejar en diferentes formas, la información que referente al sueldo existe sobre el empleado. 
Por tal motivo, vamos a crear tres métodos con el nombre Sueldo( ), que variarán en su firma, o 
protocolo de llamada, y realizarán diferentes tareas, pero todas ellas relacionadas con el sueldo del 
empleado. Veamos el Código fuente 240. 


Module General 
Sub Main() 

Dim loEmpleado As New Empleado() 

Dim ldbResultadoIncent As Double 
loEmpleado.Salario = 1020.82 

'llamada al primer método sobrecargado 
loEmpleado.Sueldo() 

'llamada al segundo método sobrecargado 

Consolé.WriteLine("El sueldo se transferirá el día {o}", 
loEmpleado.Sueldo(29)) 

'llamada al tercer método sobrecargado 

ldbResultadoIncent = loEmpleado.Sueldo(50.75, "Extras") 

Consolé.WriteLine("El incentivo a pagar será {o}", ldbResultadoIncent) 

Consolé.ReadLine() 
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End Sub 
End Module 

Public Class Empleado 

Private mdbSalario As Double 

Public Property Salario() As Double 
Get 

Return mdbSalario 
End Get 

Set(ByVal Valué As Double) 
mdbSalario = Valué 
End Set 
End Property 

1 métodos sobrecargados 
Public Overloads Sub Sueldo() 

' aquí mostramos en consola el importe del sueldo formateado 
Consolé.WriteLine("El sueldo es {0}", Format(Me.Salario, "#,#.##")) 

Consolé.ReadLine() 

End Sub 

Public Overloads Function Sueldo(ByVal liDia As Integer) As String 
1 aquí mostramos la fecha del mes actual 
' en la que se realizará la transferencia 
' del sueldo al banco del empleado 
Dim ldtFechaActual As Date 
Dim lsFechaCobro As String 
ldtFechaActual = Now() 

lsFechaCobro = CStr(liDia) & "/" & _ 

CStr(Month(ldtFechaActual)) & "/" & _ 

CStr(Year(ldtFechaActual)) 

Return lsFechaCobro 
End Function 

Public Overloads Function Sueldo(ByVal ldblmportelncentivo As Double, 
ByVal IsTipoIncentivo As String) As Double 
1 aquí calculamos la cantidad de incentivo 
' que se añadirá al sueldo del empleado, 

' en función del tipo de incentivo 
Dim ldblncentivo As Double 

1 según el tipo de incentivo, 

' se descuenta un importe 
1 de la cantidad del incentivo 
Select Case IsTipoIncentivo 
Case "Viajes" 

ldblncentivo = ldblmportelncentivo - 30 
Case "Extras" 

ldblncentivo = ldblmportelncentivo - 15 
End Select 

Return ldblncentivo 

End Function 

End Class 

Código ñiente 240 


Vemos pues, cómo a través de la sobrecarga conseguimos también polimorfismo para una clase, ya 
que el mismo nombre de método, en función de los parámetros pasados, actuará de diferente forma. 


250 





© Grupo EIDOS 


11. Métodos y espacios de nombre 


A pesar de haber indicado que la palabra clave Overloads nos permite sobrecargar los métodos con 
nombres iguales en la clase, realmente no sería necesario su uso, ya que el compilador detecta la 
diferencia entre dichos métodos a través de su lista de parámetros. Sin embargo se recomienda el uso 
de esta palabra clave por motivos de legibilidad del código, de forma que nos ayude a reconocer más 
rápidamente los métodos sobrecargados. 

Cuando realmente necesitaremos emplear Overloads será al sobrecargar un método en una clase 
derivada, aspecto este que se explicará en un próximo apartado. 


Enlace (binding) de variables a referencias de objetos 

El enlace, también denominado binding, es un proceso que determina cuándo va a ser efectuada la 
localización de los miembros de un objeto, por parte de la variable que va a manipular dicho objeto. 
Existen dos tipos de enlace, los cuales describimos a continuación. 


Enlace temprano 

También conocido como early binding o static binding, este enlace establece que las referencias entre 
la variable y el objeto que contiene van a ser resueltas en tiempo de compilación. 

El enlace temprano se realiza en el momento de declarar la variable, asignándole a esta el tipo de 
objeto con el que va a trabajar. Con ello conseguimos un mejor rendimiento del programa, puesto que 
el código generado, al conocer de forma precisa qué propiedades y métodos debe usar, se ejecutará de 
modo más veloz. En nuestros anteriores ejemplos con la clase Empleado, al declarar una variable de 
dicha clase, tenemos desde ese momento, acceso directo a todos sus miembros. Ver Figura 107. 


Tiempo de compilación 

Dim loEmpleado As Empleado 

▲ 

-► 


Clase Horario 

Tiempo de ejecución • Propiedades 

• Métodos 

loEmpleado = New Empleado! ) - 

Objeto 
Empleado 

Figura 107. Esquema de funcionamiento del enlace temprano de objetos. 




Clase Proveedor 

♦ Propiedades 

♦ Métodos 


Clase Empleado 

• Propiedades 

♦ Métodos 


Además, y como habrá podido comprobar hasta ahora el lector, la escritura de código mediante enlace 
temprano también se facilita, ya que en todo momento, los asistentes del IDE muestran las listas de 
miembros disponibles para el objeto que estemos codificando. Ver Figura 108 
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loEnpleado.Apellidos = "Rol] 
loEmpleado.MostrarDatos() 
loempleado. 


el? | Apellidos 

CalcularVacaciones 

♦ CrearEmpleado 
& DiasVacaciones 
[á 1 DNI 

FechaAlta 
=♦ GetType 
nf? Identificador 
dS 1 InicioVacaciones 

♦ MostrarDatos 


zl 


Figura 108. Lista de miembros de un objeto en el editor de código. 


El enlace temprano, debido a su mejor rendimiento, es el tipo de enlace utilizado por defecto dentro 
del CLR. 


Enlace tardío 

También conocido como late binding o dynamic binding, este enlace establece que las referencias 
entre la variable y el objeto que contiene van a ser resueltas en tiempo de ejecución. 

El principal inconveniente en este tipo de enlace radica en que el código generado será más lento, ya 
que desconoce con qué miembros de objeto tendrá que trabajar, debiendo averiguar esta información 
durante la ejecución del programa. Adicionalmente, el trabajo del programador será también mayor, ya 
que tendrá que conocer con antelación, la lista de miembros o interfaz que implementa el objeto. 

Como ventaja nos aporta una mayor flexibilidad, ya que con la misma variable podemos manipular 
objetos de distinto tipo. Para ello, tendremos que tipificar la variable como Object. Ver Figura 109. 


Tiempo de compilación 


Dim loObj Varios As Object 

A ' I 

_ I-♦? 


Tiempo de ejecución 
loObjVarios = New Empleado() 




Clase Empleado 

♦ Propiedades 

♦ Métodos 


Clase Horario 

♦ Propiedades 

♦ Métodos 


Clase Proveedor 

♦ Propiedades 

♦ Métodos 


Figura 109. Esquema de funcionamiento del enlace tardío de objetos. 
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Por ejemplo, si aparte de nuestra conocida clase Empleado, escribimos otra nueva llamada Proveedor, 
con algunos aspectos similares, como las propiedades Nombre, Apellidos, el método MostrarDatos( ), 
etc., podremos utilizar una misma variable para manipular cada uno de los objetos que instanciemos 
de estas clases; evidentemente, tendremos que asignar el objeto pertinente a la variable antes de poder 
manejarlo. 

Vamos incluso a crear otra clase más, llamada Horario, con un método que devuelva la hora actual del 
sistema, y ejecutaremos dicho método asignando un objeto de esta clase a la misma variable utilizada 
para manejar los objetos Empleado y Proveedor. Veamos todo en el Código fuente 241. 


Module General 

Sub Main() 

' tipificamos como Object, 

1 por lo que obtendremos enlace tardío 

Dim loVariosObj As Object 


1 instanciamos un objeto de Empleado 
loVariosObj = New Empleado() 
loVariosObj.Nombre = "Juan" 
loVariosObj.Apellidos = "Rollo" 
loVariosObj.MostrarDatos() 


1 instanciamos un objeto de Proveedor 
loVariosObj = New Proveedor() 
loVariosObj.Nombre = "Alicia" 
loVariosObj.Apellidos = "Cañaveral" 
loVariosObj.MostrarDatos() 


1 instanciamos un objeto de Horario 
loVariosObj = New Horario() 
loVariosObj.HoraActual() 

End Sub 

End Module 


Public Class Empleado 

Private msNombre As String 

Private msApellidos As String 


Public Property Nombre() As String 

Get 

Return msNombre 

End Get 

Set(ByVal Valué As String) 
msNombre = Valué 

End Set 

End Property 


Public Property Apellidos() As String 

Get 

Return msApellidos 

End Get 

Set(ByVal Valué As String) 
msApellidos = Valué 

End Set 

End Property 


Public Sub MostrarDatos() 

Consolé.WriteLine("El empleado seleccionado es: 

msNombre, msApellidos) 

Consolé.ReadLine() 

End Sub 

End Class 

{0} {1}", _ 
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Public Class Proveedor 

Private msNombre As String 
Private msApellidos As String 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 

Public Property Apellidos() As String 
Get 

Return msApellidos 
End Get 

Set(ByVal Valué As String) 
msApellidos = Valué 
End Set 
End Property 

Public Sub MostrarDatos () 

Consolé.WriteLine("El proveedor actual es: {0} {l}", _ 
msNombre, msApellidos) 

Consolé.ReadLine() 

End Sub 
End Class 

Public Class Horario 

Public Sub HoraActualO 

Consolé.WriteLine("Hora del sistema: {o}", Format(Now(), "HH:mm")) 
Consolé.ReadLine() 

End Sub 
End Class 

Código ñiente 241 


De cara a próximos apartados referentes a la herencia, tengamos en cuenta la siguiente regla respecto a 
los tipos de enlace. 

El enlace temprano se basa en el tipo de la referencia o clase establecida al declarar la variable, 
mientras que el enlace tardío se basa en el tipo del propio objeto asignado a la variable, sin tener en 
cuenta la clase con que haya sido declarada la variable. 


Espacios de nombres (namespaces) 

Un espacio de nombres, también denominado namespace, es un contenedor lógico de código, que nos 
permite organizar de un modo más óptimo, las clases dentro de un proyecto o ensamblado. El 
concepto de ensamblado será explicado en un apartado posterior, por el momento podemos equiparar 
la noción de ensamblado con la de proyecto. 

En el presente apartado, dedicaremos nuestros esfuerzos al trabajo con los espacios de nombres desde 
su vertiente práctica, es decir, veremos cómo se utilizan los espacios de nombres en un proyecto para 
agrupar funcionalmente las clases que contiene. 

Para ello vamos a desarrollar el proyecto de ejemplo ConsoleApplicationl (hacer clic aquí para 
acceder a este ejemplo). 


254 





© Grupo EIDOS 


11. Métodos y espacios de nombre 


Cada vez que creamos un nuevo proyecto en VB.NET, se crea un espacio de nombres a nivel del 
ensamblado, con su mismo nombre, y que engloba a todos los tipos o clases que vayamos creando. 
Este espacio de nombres recibe la denominación de espacio de nombres raíz, y podemos verlo 
abriendo la ventana de propiedades del proyecto. Ver Figura 110. 



Figura 110. Nombre del espacio de nombres raíz en las propiedades del proyecto / ensamblado. 


Como muestra la imagen, tanto el ensamblado como su espacio de nombres tienen como nombre 
ConsoleApplicationl, por lo que todas las clases que escribamos dentro de este proyecto estarán 
dentro de dicho espacio de nombres. 

Vamos a ir construyendo progresivamente un ejemplo, para ver las variantes de uso de clases en 
función del espacio de nombres en el que estén contenidas. Crearemos para ello una nueva aplicación 
de consola, y en el fichero de código que incluye por defecto, además del módulo Module 1 ya incluido 
al crearse el proyecto, escribiremos la clase Factura, ver Código fuente 242. 


Module Modulel 
Sub Main() 

1 como la clase Factura se encuentra 
' en el espacio de nombres raíz, 

' instanciamos normalmente 
Dim loFac As New Factura() 
loFac.pilD = 5 
loFac.pilmporte = 200 
loFac.Datos () 

Consolé.ReadLine() 

End Sub 

End Module 

1 clase Factura 

' esta clase se encuentra dentro 
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1 del espacio de nombres raíz del ensamblado 
Public Class Factura 

Public pilD As Integer 
Public pilmporte As Integer 

Public Sub Datos() 

Consolé.WriteLine("La factura {o}, tiene un importe de {l}", 
Me.pilD, Me.pilmporte) 

End Sub 
End Class 

Código ñiente 242 


Seguidamente, y en el mismo fichero de código, creamos la clase Empleado, pero la incluimos en el 
espacio de nombres Personal. Para crear un espacio de nombres en el código de la aplicación debemos 
utilizar las palabras clave Namespace...End Namespace. Ver Código fuente 243. 


1 clase Empleado 

1 esta clase se encuentra dentro 
1 del espacio de nombres raíz del ensamblado, 

1 y a su vez, dentro del espacio de 
1 nombres Personal 
Namespace Personal 

Public Class Empleado 

Public psID As Integer 

Public Sub MostrarDatos() 

Consolé.WriteLine("Identificador del empleado: {o}", Me.psID) 
Consolé.ReadLine() 

End Sub 

End Class 
End Namespace 

Código fuente 243 


Debido a que hemos creado una clase dentro de un nuevo espacio de nombres definido en el código, 
dicho espacio de nombres queda anidado dentro del espacio de nombres raíz del ensamblado. Para 
instanciar objetos de una clase escrita en un espacio de nombres de esta forma, en primer lugar 
debemos importar dicho espacio de nombres en la cabecera del fichero de código, utilizando la palabra 
clave Imports, como se muestra en el Código fuente 244. 


1 debemos importar el espacio de nombres 
1 o no podremos instanciar objetos de las 
1 clases que contiene 

Imports ConsoleApplicationl.Personal 

Module Modulel 
Sub Main() 

' como hemos importado el espacio de nombres Personal 

1 podemos instanciar un objeto de su clase Empleado 

Dim loEmp As Empleado 

loEmp = New Empleado() 

loEmp.pilD = 5 

loEmp.MostrarDatos() 

Consolé.ReadLine() 
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End Sub 
End Module 


Código fuente 244 


Si no utilizamos Imports, también podemos instanciar objetos de clases halladas en espacios de 
nombres distintos, utilizando en este caso la sintaxis calificada, es decir, escribimos en primer lugar el 
espacio de nombres, un punto y la clase. El inconveniente de esta forma de codificación, reside en que 
cada vez que declaremos e distanciemos un objeto tenemos que emplear esta sintaxis calificada, por lo 
cuál, es mucho más cómodo importar el espacio de nombres al comienzo del fichero. Ver Código 
fuente 245. 


Dim loEmp As Personal.Empleado 
loEmp = New Personal.Empleado() 

Código ñiente 245 


Finalmente, vamos a agregar una nueva clase al proyecto, a la que daremos el nombre Gestión.VB. Sin 
embargo no utilizaremos la clase que crea por defecto, borraremos todo el código de ese fichero y 
escribiremos dos nuevas clases en él: Cuenta y Balance, que además, estarán contenidas en el espacio 
de nombres Contabilidad. De esta forma queda demostrado cómo podemos organizar nuestro código, 
además de en clases, en espacios de nombre que contengan clases con funcionalidades similares. Ver 
Código fuente 246. 


Namespace Contabilidad 

Public Class Cuenta 

Public piCodigo As Integer 


Public Function Obtener() As Integer 

Return Me.piCodigo 

End Function 


End Class 


Public Class Balance 

Public psDescripcion As String 


Public Sub MostrarDescrip() 

Consolé.WriteLine("La descripción del balance es: 
Me.psDescripcion) 

Consolé.ReadLine() 

End Sub 

End Class 

End Namespace 

{ 0 }" - 

Código fuente 246 


El modo de instanciar, desde Main( ), objetos de las clases del espacio de nombres Contabilidad, es 
exactamente el mismo que hemos descrito para el espacio de nombres Personal: bien importamos el 
espacio de nombres, o empleamos los nombres calificados. Veamos el Código fuente 247. 
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Imports ConsoleApplicationl.Contabilidad 

Module Modulel 
Sub Main() 

1 instanciamos con sintaxis calificada 
Dim loCuen As New Contabilidad.Cuenta() 

Dim liDatoCuenta As Integer 
loCuen.piCodigo = 158 
liDatoCuenta = loCuen.Obtener() 

' al haber importado el espacio de nombres 
' podemos instanciar usando el nombre 
1 de la clase directamente 
Dim loBal As Balance 
loBal = New Balance() 

loBal.psDescripcion = "Resultado trimestral" 
loBal.MostrarDescrip() 

Consolé.ReadLine() 

End Sub 
End Module 

Código fuente 247 


Una cualidad muy de agradecer cuando escribimos clases dentro de espacios de nombre, reside en que 
podemos tener las clases de un mismo espacio de nombres diseminadas por todo el código de la 
aplicación. Por ejemplo, en el módulo Modulel hemos definido el espacio de nombres Personal, y 
creado en su interior la clase Empleado; pues bien, si añadimos otra clase al proyecto, podemos incluir 
también esta clase en el espacio de nombres Personal, a pesar de que dicho código se encuentre en otro 
fichero distinto. Ver Código fuente 248. 


Namespace Personal 

Public Class Proveedor 

Public psID As Integer 
Public psDescrip As String 

Public Sub MuestraProv() 

Consolé.WriteLine("El proveedor tiene el código" & _ 

" {o} y la descripción {1} ", Me.psID, Me.psDescrip) 

End Sub 
End Class 
End Namespace 

Código fuente 248 


Cuando importemos el espacio de nombres Personal, todas las clases que contiene pasarán a estar 
disponibles, con independencia del fichero de código que las contenga. 
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Librerías de código (bibliotecas) y 

ensamblados externos 


La reutilización del código 

Durante el desarrollo de un programa, al diseñar y escribir el código de una clase, puede ocurrir que la 
funcionalidad que esta encierra sea posible aprovecharla en futuros desarrollos, propios o de otros 
programadores. 

Otra posible situación sería aquella en la que el programador escribe el código, no para una aplicación 
concreta, sino como un conjunto de utilidades, pensando de manera explícita en su distribución y uso 
por otros programadores. 

Ante los dos escenarios que acabamos de mencionar, la única manera que hasta el momento 
conocemos de distribuir a terceros programadores nuestro código para que pueda ser reutilizado, 
consiste en facilitar los archivos de código fuente, para que sean incorporados al proyecto que lo 
necesite, y compilados junto al mismo. 

Esto tiene el inconveniente de que facilitamos libremente el acceso a nuestro código fuente, cuando lo 
único que nos interesa es proporcionar la funcionalidad, pero no el código sobre el que tanto hemos 
trabaj ado para conseguirla. 

La solución a esta (delicada en ocasiones) situación podemos encontrarla en las librerías o bibliotecas 
de código, un aspecto de la programación consistente en compilar nuestro código a un archivo no 
directamente ejecutable, pero que reside en un formato binario, mediante el cual, un ejecutable típico 
se puede enlazar para hacer uso del código residente en dicha librería. 
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Por otro lado, las librerías nos aportan la ventaja de poder tener nuestro código organizado, y ya 
compilado para ser distribuido. 


Los inicios de las librerías 

En los tiempos de la programación para entornos basados en modo texto, y ejecutados bajo MS-DOS, 
surgió la necesidad antes mencionada, de poder tener nuestro código en un formato que fuera fácil de 
transportar, pero que ocultara la implementación que habíamos realizado de nuestros procesos. 

Puesto que el archivo ejecutable no servía, ya que se trataba de disponer de un almacén de código que 
no se pudiera ejecutar directamente, se desarrolló el formato inicial de librería, un archivo con 
extensión .L1B, que contenía procedimientos y funciones en un estado precompilado. 

Como ya se describió en uno de los temas iniciales del texto, para utilizar el código de una librería 
clásica desde un programa, tras la fase de compilación del mismo, se tomaba el código objeto 
producido por el compilador, residente en un archivo con extensión .OBJ, y mediante una utilidad 
denominada enlazador, se combinaban código objeto y librería para producir el ejecutable final en un 
archivo con extensión .EXE. Ver Figura 111. 



Figura 111. Proceso de enlace del código objeto y librería, para obtener el ejecutable. 


El inconveniente con este mecanismo residía en que el proceso de enlace tomaba todo el código de la 
librería, fuera utilizado o no por el código objeto, y lo incluía en el ejecutable final, lo que producía 
ejecutables de enorme tamaño. 

El esquema de la Figura 112 muestra un ejemplo en el que desde el código objeto se hacen llamadas a 
las funciones BBB( ) y CCC( ), que residen en la librería. El enlazador toma todo el código de la 
misma y lo incluye en el ejecutable. 
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Figura 112. Proceso de enlace de librería en formato LIB, incluyendo todo su código en el ejecutable. 


Librería con formato de enlace dinámico 

Con la llegada de Windows y sus avances en la gestión de recursos, se desarrolló un nuevo formato de 
librería basado en la siguiente premisa: dado que un ejecutable no utiliza por norma general todo el 
código de una librería, resulta más óptimo dejar el código de la misma en su propio archivo, y que el 
ejecutable enlace con ella en tiempo de ejecución, llamando dinámicamente a las rutinas que necesite. 

Con esta idea se creó el formato de librería de enlace dinámico o DLL (Dynamic Link Library), 
mediante el cual, durante la fase de generación del ejecutable, lo que se incluye en este de una librería 
no es el código, sino una referencia o puntero hacia las rutinas que el ejecutable necesita de la DLL; de 
esta manera, el tamaño de los ejecutables desciende drásticamente al no incluir todo el código de la 
librería. 

El resultado en tiempo de ejecución será el siguiente: cuando el ejecutable encuentre la llamada a un 
procedimiento residente en una librería de enlace dinámico, dicha rutina será ejecutada directamente 
desde el archivo .DLL de la librería. La Figura 113 muestra un esquema del proceso. 
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Figura 113. Proceso de ejecución del código incluyendo librería de enlace dinámico. 


Librerías de clases 

El formato inicial de librería de enlace dinámico estaba diseñado para contener procedimientos y 
funciones de forma separada. Sin embargo, la progresiva incorporación de las técnicas OOP a las 
herramientas de programación, han provocado una evolución en la manera de organizar el código de 
las librerías de enlace dinámico, pasando actualmente a estar compuestas por clases. 

Debido a este cambio, un ejecutable que requiera hacer uso de una DLL, debe primeramente instanciar 
un objeto de una de sus clases, llamando después a sus métodos para obtener la funcionalidad que 
necesite. Ver la Figura 114. 


RUTINAS.DLL 

Class Empleado 

Método Alta() ^ 

< 

Método Modifica( ) 

C 

End Class 

Class Factura 
Método Grabar() 

t 

Método Lnpmuir( ) ^ 

l 

End Class 

Figura 114. Organización de DLL en clases y uso por parte de ejecutable. 


hHPROG.EXE 

oEmpleado = Nevv Empleado!) 
oEmpleado. Alta () 

oFactiu a = New Factura!) 
oFactura.Imprimir! ) 
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El ensamblado como pieza de construcción de aplicaciones 

En terminología .NET, los ejecutables y librerías reciben también la denominación de ensamblado. 
Los ensamblados, dentro de la arquitectura de desarrollo de la plataforma .NET Framework, 
constituyen los llamados bloques de construcción de aplicaciones, ya que a semejanza del proceso de 
construcción de objetos en la vida real, nos permiten, al igual que las piezas de una maquinaria, su 
interconexión para crear un elemento de mayor entidad, que funcione articulado a partir de un 
conjunto de piezas especializadas en resolver tareas muy concretas. Un esquema de este 
funcionamiento se muestra en la Figura 115. 




V 

Aplicación 


Figura 115. Esquema de la conexión de ensamblados y su funcionamiento conjunto en .NET. 


Debido a este hecho, a partir de ahora también nos referiremos a los ejecutables, y sobre todo a las 
librerías, con el término ensamblado. 


Creación de librerías de clases desde VB.NET 

Para crear una librería de enlace dinámico utilizando VB.NET como lenguaje, debemos crear en 
primer lugar desde el IDE de VS.NET un proyecto de tipo Biblioteca de clases, como vemos en la 
Figura 116. El proceso es muy similar al empleado para crear un proyecto de tipo consola. 

En este caso hemos dado el nombre Rutinas al proyecto (hacer clic aquí para acceder a este ejemplo), 
cuyo contenido inicial será una clase con el nombre Classl, situada en el archivo de código 
Classl.VB. Podemos cambiar de nombre la clase, o eliminar el archivo del proyecto, añadiendo una 
clase (y archivo de código) nueva con un nombre diferente. En este caso y para simplificar, 
cambiaremos el nombre de la clase por Contabilidad (suponiendo que vamos a desarrollar una librería 
para los procesos de contabilidad de la empresa), dejando Classl.VB como nombre de archivo. 
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Figura 116. Creación de un proyecto de tipo Biblioteca de clases. 


Ya que este ejemplo trata de ilustrar el proceso de creación de una librería, sin entrar en los detalles de 
codificación de clases, el código de la clase Contabilidad será muy simple, constando únicamente de 
una propiedad y un método que posteriormente utilizaremos desde un proyecto de consola o 
ejecutable. El Código fuente 249 muestra el contenido de la clase Contabilidad. 


Public Class Contabilidad 

Private mNombreBalance As String 

Public Property NombreBalance() As String 
Get 

Return mNombreBalance 
End Get 

Set(ByVal Valué As String) 
mNombreBalance = Valué 
End Set 
End Property 

Public Sub MostrarBalance () 

Consolé.WriteLine("Balance actual: {0 } ", mNombreBalance) 
End Sub 
End Class 


Código fuente 249 


Una vez completada la fase de escritura del código de la librería, procederemos a su compilación para 
generar el correspondiente archivo DLL. Esto lo conseguiremos mediante la opción de menú del IDE 
Generar + Generar, con lo que obtendremos en el directorio \B1N del proyecto la librería física, en 
este ejemplo será el archivo Rutinas.DLL. 
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En el caso de que hayamos generado ya el archivo .DLL, y efectuemos cambios sobre el mismo, las 
sucesivas generaciones sólo compilarán aquellas partes nuevas o modificadas de la librería. Si 
necesitamos crear la librería al completo, seleccionaremos la opción de menú Generar + Volver a 
generar todo. 


Llamadas a una librería desde un ejecutable 

Finalizada la creación de la librería, pasaremos seguidamente a la fase de creación del ejecutable que 
hará uso de la misma. 

En primer lugar crearemos desde VS.NET un nuevo proyecto de tipo consola al que llamaremos 
Gestión (hacer clic aquí para acceder a este ejemplo). Como ya sabemos, el IDE añade por defecto un 
archivo al proyecto con el código básico para el mismo: un módulo y un procedimiento Main( ). Ahora 
debemos proporcionar a este proyecto el enlace o acceso a la librería que creamos anteriormente, para 
que pueda hacer uso del código que escribimos en ella. Este proceso se denomina agregar referencia. 

En el apartado dedicado a los espacios de nombres explicamos que cada vez que creamos un proyecto, 
el IDE crea un espacio de nombres que engloba a dicho proyecto o ensamblado; esto es aplicable a 
cualquier tipo de proyecto: consola, librería, etc. Por lo tanto, en el caso actual, lo que necesitamos es 
acceder al espacio de nombres de la biblioteca de clases que hemos creado, a través de una referencia 
establecida desde el ejecutable hacia la librería. 

Para crear una referencia usaremos la opción de menú Proyecto + Agregar referencia, que nos 
mostrará una ventana de diálogo, en la que pulsaremos el botón examinar y navegaremos hasta la ruta 
del disco duro en donde se encuentra la DLL que hemos creado anteriormente. Ver la Figura 117. 


Agregar referencia 


*1 


■ NET | COM | Proyectos | 


Nombre de componente 

Versión 

Ruta de acceso I * 

lAccessibility.dll 

1.0.2411.0 

K:\WINNT\Microsoft.NET\Fra. ,, 1 

adodb 

2.7.0.0 

K: \Archlvos de programa\Mlcr... _1 

CRVsPackageLib 

1.0.0.0 

K:\Archivos de programa\Micr... 

CrystalDecisions.CrystalRepo... 

9.1.0.0 

K:\Archivos de programa\Micr... 

CrystalDecisions. ReportSource 

9.1.0.0 

K:\Archivos de programa\Micr... 

CrystalDecisions. Shared 

9.1.0.0 

K:\Archivos de programa\Micr... 

CrystalDecisions. Web 

9.1.0.0 

K:\Archivos de programa\Micr... 

CrystalDecisions. Windows. Fo... 

9.1.0.0 

K:\Archivos de programa\Micr... 

CrystalEnterpriseLib 

1.0.0.0 

K:\Archivos de programa\Micr... 

CrystalInfoStoreLib 

1.0.0.0 

K:\Archivos de programa\Micr... 

CrystalKeyCodeLib 

1.0.0.0 

K: \Archivos de programa\M¡cr... < 

f rvstalPli ininMnrl ih 

t.n.n.n 

K:1 Archivos He nrnnramaiMirr... JU 



Componentes seleccionados: 


Nombre de componente 

Rutinas.dll 


Tipo 

Archivo 


Origen _ 

K:\CursoFundamentosVBNET\Pr. .. 



Aceptar Cancelar Ayuda 


Figura 117. Ventana para agregar una referencia a una librería. 
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Una vez seleccionado el archivo DLL correspondiente a la librería aceptaremos esta ventana, 
añadiéndose la referencia al proyecto del ejecutable. Esto lo podemos comprobar abriendo en la 
ventana del Explorador de soluciones el elemento References, que como su nombre indica, muestra las 
referencias establecidas desde el proyecto a otras librerías o ensamblados externos. Ver la Figura 118. 


Explorador de soluciones - Gestión í X 

m 


5 := 


Él Gestión 

É ^ References 

*oí 


Rutinas 


• *Q System 
•Q System.Data 
- ■•O System.XML 
fifi Assemblylnfo.vb 
VI Modulel.vb 


Figura 118. Referencia establecida desde un proyecto hacia la librería. 


Por último, y dado que el código de la librería está contenido en su espacio de nombres raíz, que 
engloba a todo el código de la misma, debemos importar al comienzo del archivo de código del 
ejecutable, este espacio de nombres, como se muestra en el Código fuente 250. 


1 importar espacio de nombres raíz de la librería 
Imports Rutinas 

Module Modulel 

Sub Main() 

1 instanciar y trabajar con un objeto de la librería 

Dim oContab As Contabilidad 

oContab = New Contabilidad!) 

oContab.NombreBalance = "Saldos" 

oContab.MostrarBalance() 

Consolé.Read() 

End Sub 

End Module 

Código fuente 250 


Cuando ejecutemos el programa depurando línea a línea, al llegar al código de la librería, se abrirá una 
ventana en el IDE que nos mostrará la depuración de dicho código. No obstante, cualquier 
modificación que tengamos que hacer sobre los fuentes de la librería, se recomienda realizarla 
abriendo el proyecto correspondiente a dicha librería. 


Crear espacios de nombres adicionales en una librería 

Continuando con el ejemplo anterior, supongamos ahora, que en el código de la librería añadimos un 
nuevo espacio de nombres, al que llamamos Personal, y escribimos en su interior la clase Empleado, 
como vemos en el Código fuente 251. 
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1 código de la clase Contabilidad 

I 

1 nuevo código en un nuevo espacio de nombres 
Namespace Personal 

Public Class Empleado 

Public Function FechaActual() As Date 
Dim Fecha As Date 
Fecha = Now 
Return Fecha 
End Function 
End Class 
End Namespace 

Código fuente 251 


Tras compilar de nuevo la librería, nos situaremos en el proyecto de consola que accede a ella, y 
seleccionaremos la opción de menú Ver + Actualizar. Con esta acción, se restablecerán las referencias 
existentes en este proyecto hacia librerías extemas. 

Para poder instanciar ahora un objeto de la clase Empleado que está en la librería, debemos añadir una 
nueva instrucción de importación en el archivo de código, que importe el espacio de nombres raíz y el 
nuevo que acabamos de crear. El Código fuente 252 muestra el código actualizado del proyecto 
ejecutable. En el caso de que no escribiéramos la segunda línea de importación, no podríamos crear 
objetos de la clase Empleado. 


Imports Rutinas ' importar espacios de nombres raíz 
Imports Rutinas.Personal ' importar espacios de nombres nuevo 

Module Modulel 

Sub Main() 

1 instanciar y trabajar con objetos de la librería 

Dim oContab As Contabilidad 

Dim oEmple As Empleado 

oContab = New Contabilidad() 

oContab.NombreBalance = "Saldos" 

oContab.MostrarBalance() 

oEmple = New Empleado() 

Consolé.WriteLine("La fecha es: {0}", oEmple.FechaActual()) 

Consolé.Read() 

End Sub 

End Module 

Código fuente 252 


Facilitar el desarrollo a través de una solución 
multiproyecto 

Para desarrollar el ejemplo descrito en los anteriores apartados, hemos tenido que abrir por separado 
cada uno de los proyectos que lo integran: por un lado el de librería, y por otro el de consola. 
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El IDE de VS.NET nos facilita el trabajo con varios proyectos a la vez, pudiéndolos tener todos 
abiertos en una misma sesión de trabajo, a través de una única solución contenedora. 

Si nos encontramos con una situación como la del ejemplo anterior, en primer lugar podemos crear el 
proyecto de la librería, escribir su código y compilarla para obtener el archivo DLL. 

A continuación, seleccionaremos la opción de menú del IDE Archivo + Agregar proyecto + Nuevo 
proyecto, agregando un proyecto de tipo consola. Esta acción añadirá este último proyecto a la 
solución, aunque debemos tener presente que la referencia hacia la librería deberemos seguir 
estableciéndola nosotros manualmente. 

Finalmente, haremos clic derecho en el Explorador de soluciones sobre el nombre del proyecto de 
consola, y elegiremos la opción de menú Establecer como proyecto de inicio. De esta manera, el 
comienzo de la ejecución se realizará por este proyecto y no la librería, que como recordaremos no es 
directamente ejecutable. Podemos comprobar rápidamente cuál es el proyecto de inicio, ya que en el 
Explorador de soluciones aparece remarcado en negrita. Ver la Figura 119. 


1 Explorador de soluciones - Gestio... ^ X 

m \ 

¡ T\ 

!®> 

j = = 


3 Solución 'Rutinas' (2 proyectos) 

B lü§ Gestionar 
É (¡si References 
V] Assemblylnfo.vb 


Module l.vb 


Él ■ íi)5 Rutinas 

0 («S) References 

Vj Assemblylnfo.vb 
VÍ Classl.vb 


Figura 119. Solución con varios proyectos, y proyecto de inicio remarcado. 
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Métodos constructores 

El primer método que es ejecutado al instanciar un objeto de la clase se denomina constructor. Este 
tipo de método resulta útil para tareas de configuración iniciales sobre el objeto. 

No es necesario escribir un método constructor en la clase, ya que en el caso de que no exista, el 
compilador se encarga de crearlo implícitamente. 

Para escribir nuestros propios constructores de clase, crearemos un método con el nombre New( ), 
como vemos en el Código fuente 253. En dicho ejemplo, al instanciarse un objeto de la clase 
Empleado, se asignará a una de sus propiedades la fecha actual. 


Module General 
Sub Main() 

Dim loEmp As Empleado 
loEmp = New Empleado() 

Consolé.WriteLine("El objeto se ha creado el día {0}", loEmp.FechaCrea) 
Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Private mdtFechaCrea As Date 

Public Property FechaCrea() As Date 
Get 



Return mdtFechaCrea 
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End Get 

Set(ByVal Valué As Date) 
mdtFechaCrea = Valué 
End Set 
End Property 

1 método constructor 
Public Sub New() 

' asignamos un valor inicial 
1 a una variable de propiedad 
Me.FechaCrea = Now 
End Sub 
End Class 

Código ñiente 253 


Al igual que ocurre en un método normal, New( ) admite parámetros; esto nos sirve para asignar 
valores de inicio al objeto en el momento de su instanciación. La denominación para este tipo de 
métodos es constructor parametrizado. El Código fuente 254 nos muestra una variación del fuente 
anterior, utilizando un constructor de este tipo. 


Module General 
Sub Main() 

Dim loEmp As Empleado 

loEmp = New Empleado("5/7/2002") 

Consolé.WriteLine("El objeto se ha creado el día {0} " , loEmp.FechaCrea) 
Consolé.ReadLine() 

' este es otro modo de instanciar 
1 un objeto con un constructor parametrizado 
Dim loEmp2 As New Empleado("08/4/2002") 

End Sub 
End Module 

Public Class Empleado 

Private mdtFechaCrea 

Public Property FechaCrea() As Date 
Get 

Return mdtFechaCrea 
End Get 

Set(ByVal Valué As Date) 
mdtFechaCrea = Valué 
End Set 
End Property 

' método constructor con parámetro 
Public Sub New(ByVal ldtFecha As Date) 

' asignamos el valor del parámetro 
1 a una variable de propiedad 
Me.FechaCrea = ldtFecha 
End Sub 
End Class 

Código fuente 254 


Combinando las características de métodos constructores junto a las de sobrecarga, podemos crear un 
conjunto de constructores sobrecargados para la clase. Ver el Código fuente 255. 
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Public Class Empleado 
Public psNombre 
Public psApellidos 
Public psCiudad 
Private mdtFechaCrea 

1 en este constructor sin parámetros, 

' asignamos la fecha actual 
Public Sub New() 

mdtFechaCrea = Now() 

End Sub 

1 en este constructor, asignamos valores 
1 a todos los campos de la clase 
Public Sub New(ByVal lsNombre As String, 

ByVal IsApellidos As String, ByVal IsCiudad As String) 

psNombre = lsNombre 
psApellidos = IsApellidos 
psCiudad = IsCiudad 

End Sub 
End Class 

Código ñiente 255 


Herencia 

Este es uno de los aspectos más importantes, sino el más importante, en un lenguaje orientado a 
objetos. Empleando la herencia podemos crear una clase base o padre, con especificaciones generales, 
y a partir de ella, crear nuevas clases derivadas o hijas. 

En el momento de declarar una clase derivada, y sin haber escrito más código, ya tenemos acceso a 
todos los miembros de la clase base; posteriormente, podemos escribir código adicional en la clase 
derivada para ampliar sus funcionalidades. 

Una clase hija puede servir a su vez como clase base para la creación de otra clase derivada, y así 
sucesivamente, con lo que podemos componer nuestra propia jerarquía con la estructura de clases que 
necesitemos. 

Para crear una clase derivada, debemos declarar una nueva clase, especificando cuál es su clase base 
mediante la palabra clave Inherits. En el Código fuente 256 se muestran los dos modos disponibles de 
crear una clase heredada. 


1 crear clase derivada en dos líneas 
Public Class Administrativo 
Inherits Empleado 

1 crear clase derivada en la misma línea 
Public Class Administrativo : Inherits Empleado 

Código fuente 256 


Una vez que creemos la clase derivada, tendremos a nuestra disposición todos los elementos de la 
clase base, tanto desde la propia clase, como desde el código cliente. 
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Por ejemplo, supongamos que se nos plantea la necesidad de crear un tipo de empleado, con 
características más especializadas de las que ahora tiene nuestra clase Empleado. Podemos optar por 
modificar toda la implementación ya existente para la clase Empleado, lo que afectaría al código 
cliente que ya utiliza dicha clase, y seguramente de forma negativa; o bien, podemos crear una nueva 
clase, que herede de Empleado, y en la que definiríamos el comportamiento de este nuevo tipo de 
empleado. A esta nueva clase le daremos el nombre Administrativo, y su código podemos verlo en el 
Código fuente 257. 


Public Class Administrativo 
Inherits Empleado 

Public Sub EnviarCorreo(ByVal IsMensaje As String) 

Consolé.WriteLine("Remitente del mensaje: {0} {1}", __ 
Me.Nombre, Me.Apellidos) 

Consolé.WriteLine("Texto del mensaje: {0} " , IsMensaje) 
Consolé.ReadLine() 

End Sub 

End Class 

Código ñiente 257 


Observemos en el único método de esta clase, que estamos haciendo referencia a las propiedades 
Nombre y Apellidos; al heredar de Empleado, no ha sido necesario crear de nuevo dichas propiedades, 
estamos reutilizando las existentes en la clase base. 

De igual modo sucede al instanciar un objeto de la clase, como vemos en el Código fuente 258, hemos 
creado un objeto Administrativo, y estamos haciendo uso tanto del nuevo método que tiene dicho 
objeto, como de todos los pertenecientes a su clase padre. 


Module General 
Sub Main() 

1 instanciamos un objeto de la clase derivada 
Dim loAdmin As New Administrativo() 

1 accedemos a los miembros de la clase padre 
loAdmin.Nombre = "Almudena" 
loAdmin.Apellidos = "Cerro" 
loAdmin.MostrarDatos() 

1 ahora accedemos a los miembros de esta propia clase 
loAdmin.EnviarCorreo("Acabo de llegar") 

End Sub 
End Module 

Código fuente 258 


Todas las clases necesitan una clase base 

El diseño de la plataforma .NET Framework dicta como norma que toda clase creada necesita heredar 
de una clase base. Esto puede resultar un tanto confuso al principio, ya que en los ejemplos escritos en 
anteriores apartados, no hemos heredado, al menos aparentemente, de ninguna clase. 

Cuando creamos una nueva clase, si en ella no establecemos una relación explícita de herencia con 
otra clase, el entorno de ejecución de .NET internamente la creará haciendo que herede de la clase 
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Object, que se encuentra en el espacio de nombres System. Esto es debido a que el tipo de herencia en 
.NET Framework es simple, y en la jerarquía de clases de la plataforma, Object es la clase base, a 
partir de la cuál, se derivan el resto de clases. 

Por este motivo, las declaraciones mostradas en el Código fuente 259 serían equivalentes. 


1 declaración normal (se hereda implícitamente de Object) 
Public Class Empleado 

1 declaración heredando explícitamente de Object 
Public Class Empleado 

Inherits System.Object 

Código fuente 259 


Reglas de ámbito específicas para clases 

Las normas de ámbito que ya conocemos, establecen que cuando declaramos un miembro de clase con 
el modificador de ámbito Public, dicho elemento será accesible por todo el código de la clase, clases 
heredadas y código cliente; mientras que si lo declaramos con Prívate, ese miembro sólo será accesible 
por el código de la propia clase. Veamos el Código fuente 260. 


Module General 

Sub Main() 

Dim loUsu As Usuario 
loUsu = New Usuario() 

1 accedemos al método público del 
loUsu.AsignarNombre("Daniel") 

End Sub 

objeto 

End Module 


Public Class Usuario 

' esta variable sólo es accesible 

1 por el código de la propia clase 
Prívate msNombre As String 


1 este método es accesible desde cualquier punto 

Public Sub AsignarNombre(ByVal lsValor As String) 
msNombre = lsValor 

End Sub 

End Class 

Public Class Operador 

Inherits Usuario 


Public Sub New() 

1 accedemos a un método público 

1 de la clase base 

Me.AsignarNombre("Alfredo") 

End Sub 

End Class 



Código fuente 260 
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En el anterior fuente, la variable msNombre de la clase Usuario, declarada privada a nivel de clase, 
sólo es manipulada por los métodos de la propia clase. Por otro lado, el método AsignarNombre(), al 
declararse público, es utilizado desde clases heredades y código cliente. 

Además de estas normas, ya conocidas, disponemos de los modificadores descritos en los siguientes 
apartados, diseñados para resolver problemas concretos de ámbito entre clases. 


Protected 

Un miembro de clase declarado con este modificador, será accesible desde el código de su propia clase 
y desde cualquier clase heredada. El Código fuente 261 muestra un ejemplo del uso de Protected 


Module Modulel 
Sub Main() 

' con una instancia del objeto Empleado o Administrativo 
1 no podemos acceder al método VerFechaO 
1 ya que es Protected 

Dim loEmp As Empleado = New Empleado() 
loEmp.psNombre = "Pedro Peral" 

Dim loAdmin As New Administrativo() 
loAdmin.pilD = 567 

loAdmin.psNombre = "Juan Iglesias" 
loAdmin.pdtFecha = "5/9/2002" 

1oAdmin.AsignarDNI("11223344") 
loAdmin.DatosAdmin() 

Consolé.Read() 

End Sub 
End Module 

Public Class Empleado 

Public psNombre As String 
Public pdtFecha As Date 

' los dos siguientes miembros sólo serán visibles 
1 dentro de esta clase o en sus clases derivadas 
Protected psDNI As String 

Protected Function VerFechaO 
Return pdtFecha 
End Function 

Public Sub AsignarDNI(ByVal lsDNI As String) 

1 desde aquí sí tenemos acceso a la variable 
1 Protected declarada en la clase 
Me.psDNI = lsDNI 
End Sub 
End Class 

Public Class Administrativo 
Inherits Empleado 

Public pilD As Integer 

Public Sub DatosAdmin() 

Consolé.WriteLine("Datos del administrativo") 

Consolé.WriteLine("Identificador: {0}", Me.pilD) 

Consolé.WriteLine("Nombre: {0 }", Me.psNombre) 

' desde esta clase derivada sí tenemos acceso 
1 a lo miembtos Protected de la clase padre 
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Consolé.WriteLine("Fecha: {0) 

", Me.VerFecha() ) 

Consolé.WriteLine("DNI: {0}", 

Me.psDNI) 

End Sub 


End Class 



Código fuente 261 


Friend 

Un miembro de clase declarado con este modificador, será accesible por todo el código de su proyecto 
o ensamblado. 

Para poder comprobar el comportamiento utilizando el ámbito Friend, debemos crear una solución 
formada por un proyecto de tipo consola y uno de biblioteca de clases; en este último escribimos una 
clase definiendo alguno de sus miembros con este modificador, como vemos en el Código fuente 262. 


Public Class Empleado 

Public pilD As Integer 
Private msNombre As String 

' esta variable sólo puede ser 
1 accesible por tipos que estén 
1 dentro de este ensamblado 
Friend mdbSueldo As Double 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 

Public Sub VerDatos() 

Consolé.WriteLine("Datos del empleado") 

Consolé.WriteLine("Código: {o}", Me.pilD) 

Consolé.WriteLine("Nombre: {o}", Me.msNombre) 
Consolé.WriteLine("Sueldo: {o}", Me.mdbSueldo) 

End Sub 

End Class 

Public Class Plantilla 

Public Sub Analizar() 

Dim loEmp As Empleado = New Empleado() 
loEmp.pilD = 50 

loEmp.Nombre = "Francisco Perea" 

' desde esta clase sí podemos acceder 
1 al miembro mdbSueldo del objeto 

1 Empleado, ya que estamos en el mismo ensamblado 
loEmp.mdbSueldo = 450 
loEmp.VerDatos() 

End Sub 
End Class 

Código ñiente 262 
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A continuación, agregamos una referencia desde el proyecto de consola hacia el proyecto de biblioteca 
de clases, y en el módulo de código, importamos el espacio de nombres del ensamblado 
correspondiente a la biblioteca de clases, escribiendo después en Main(), código que interactúe con un 
objeto de la clase Empleado, comprobaremos cómo no es posible manipular los miembros Friend del 
objeto Empleado. Ver Código fuente 263. 


Imports ClassLibraryl 

Module Modulel 
Sub Main() 

Dim loEmplea As Empleado = New Empleado() 

' al acceder a las propiedades del objeto 

1 desde este proyecto, no está disponible 

1 el miembro mdbSueldo ya que está declarado 

1 como Friend en la clase Empleado 

loEmplea.pilD = 70 

loEmplea.Nombre = "Alicia Mar" 

loEmplea.VerDatos() 

Consolé.Read() 

End Sub 
End Module 

Código fuente 263 


Aunque hemos descrito su modo de manejo a través de clases, la palabra clave Friend también puede 
ser utilizada como modificador de ámbito para variables y procedimientos situados en módulos de 
código. 


Protected Friend 

Los miembros de clase declarados al mismo tiempo con Protected y Friend, obtendrán una 
combinación de ambos modificadores; por lo tanto, serán accesibles desde el código de su clase, clases 
derivadas, y por todo el código que se encuentre dentro de su ensamblado. 


Herencia y sobrecarga de métodos 

Podemos sobrecargar métodos existentes en una clase base dentro de una clase derivada, para ello 
simplemente escribimos la implementación del método sobrecargado utilizando la palabra clave 
Overloads, tal y como se ha explicado en anteriores apartados. 

Tomemos como ejemplo una clase base Empleado y su clase derivada Administrativo. Cuando 
calculamos los incentivos para un empleado, lo hacemos basándonos en una operación sobre el 
salario; sin embargo, los incentivos para el administrativo se calculan en base a un número de horas, 
por lo que escribimos dos implementaciones del mismo método en cada clase, sobrecargando el 
método en la clase Administrativo, como muestra el Código fuente 264. 


Module Modulel 
Sub Main() 

Dim loEmp As Empleado = New Empleado() 
loEmp.psNombre = "Ana Gómez" 
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loEmp.piSalario = 2000 
loEmp.Calcularlncentivos() 
loEmp.Verlncentivos() 

Dim loAdmin As New Administrativo() 
loAdmin.psNombre = "Jorge Peral" 
loAdmin.piSalario = 1600 
loAdmin.Calcularlncentivos(10) 
loAdmin.Verlncentivos() 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Public pilD As Integer 
Public psNombre As String 
Public piSalario As Integer 
Public pilncentivos As Integer 

1 calcular los incentivos en base 
1 al salario 

Public Sub Calcularlncentivos() 

Me.pilncentivos = Me.piSalario / 10 
End Sub 

Public Sub Verlncentivos() 

Consolé.WriteLine("Los incentivos de {0} son {l}", _ 

Me.psNombre, Me.pilncentivos) 

End Sub 
End Class 

Public Class Administrativo 
Inherits Empleado 

' calcular los incentivos en base a horas 

Public Overloads Sub Calcularlncentivos(ByVal liHoras As Integer) 
Me.pilncentivos = liHoras * 15 
End Sub 
End Class 

Código fuente 264 


Hemos de aclarar que si no utilizáramos la palabra clave Overloads en la subclase, el programa 
también se ejecutaría, pero obtendríamos un aviso del compilador advirtiéndonos de la situación. Este 
mensaje lo podemos ver utilizando la ventana Lista de tareas, que emplea el IDE para mostrar los 
errores y avisos del compilador. Ver Figura 120. 


A 


' calcular los incentiuos en base a horas 

Public Sub Calcjuq^ant^njce^ liHoras As Integer) 


End Sub 
L End Class 


Me . pi I ncentlUO! sub 'Calcularlncentivos' sobrecarga a sub, que se define en la base class 'Empleado' y debería estar precedida 


por la palabra clave 'Overloads'. 



Figura 120. Lista de tareas y editor de código mostrando aviso del compilador. 
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MyBase, acceso a los métodos de la clase base 

Esta palabra clave proporciona acceso a los miembros de una clase base desde su correspondiente 
subclase. 

Siguiendo con el ejemplo de la sobrecarga descrito en el apartado anterior, supongamos que para 
calcular los incentivos de un administrativo, queremos en primer lugar, realizar la misma operación 
que hacemos con los empleados base, y después, un cálculo específico para el administrativo. En tal 
caso, modificaremos el método Calcularlncentivos( ) en la clase Administrativo, añadiéndole una 
llamada al mismo método de la clase padre. Veamos el Código fuente 265. 


Public Class Administrativo 
Inherits Empleado 

Public Overloads Sub Calcularlncentivos(ByVal liHoras As Integer) 
1 llamamos a la clase base con MyBase para hacer 
1 en primer lugar los mismos cálculos de incentivos 
' de la clase Empleado 
MyBase.Calcularlncentivos() 

1 después se hacen los cálculos propios de 
' esta clase 

Me.pilncentivos += liHoras * 15 
End Sub 
End Class 

Código fuente 265 


Al utilizar MyBase, no es obligatorio llamar desde el método en la clase hija, a su misma versión en la 
clase padre; podríamos perfectamente en el ejemplo anterior, haber llamado desde el método 
Calcularlncentivos( ) de la clase Administrativo, al método Verlncentivos( ) de la clase Empleado, 
todo depende de los requerimientos del diseño de la clase. Ver Código fuente 266. 


MyBase.Verlncentivos() 


Código fuente 266 


Herencia y sobre-escritura de métodos 

Esta técnica consiste en la capacidad de crear, en una clase derivada, un método que altere parcial o 
totalmente, la implementación ya existente de dicho método en la clase base. Una de las diferencias 
existentes con la sobrecarga de métodos, estriba en que al sobrescribir, el método en la subclase puede 
tener el mismo nombre y lista de parámetros que el ya existente en la clase padre. Podemos 
sobrescribir tanto métodos como propiedades. 

Para indicar en la clase base que un método podrá ser sobrescrito en una subclase, debemos declarar 
dicho método utilizando la palabra clave Overridable. Posteriormente, cuando en una clase derivada 
queramos rescribir el método de la clase base, lo declararemos empleando la palabra clave Overrides. 
Podemos deducir por lo tanto, que la reescritura de métodos es un proceso que se debe realizar con el 
consentimiento previo de la clase base. 
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El Código fuente 267 muestra un ejemplo del uso de este tipo de métodos. En él creamos las ya 
conocidas clase base Empleado y subclase Administrativo, y en ambas escribimos el método 
VerDatos(), con la particularidad de que en la clase hija, cambiamos totalmente su implementación. 


Module Modulel 
Sub Main() 

Dim loEmp As New Empleado() 
loEmp.pilD = 50 
loEmp.Nombre = "juan casas" 
loEmp.VerDatos() 

Consolé.WriteLine() 

Dim loAdmin As New Administrativo() 
loAdmin.pilD = 129 
loAdmin.Nombre = "elena redondo" 
loAdmin.VerDatos() 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Public pilD As Integer 
Private msNombre As String 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 

1 marcamos el método como rescribible con Overridable 
Public Overridable Sub VerDatos() 

Consolé.WriteLine("Datos del empleado: {0}-{l}", 
Me.pilD, Me.Nombre) 

End Sub 
End Class 

Public Class Administrativo : Inherits Empleado 

' rescribimos este método totalmente usando Overrides 
Public Overrides Sub VerDatos() 

Consolé.WriteLine("Datos del empleado") 

Consolé.WriteLine("==================") 

Consolé.WriteLine("Código: {0 }", Me.pilD) 

Consolé.WriteLine("Nombre: {0 }", UCase(Me.Nombre)) 
End Sub 
End Class 

Código fuente 267 


Pero, ¿qué sucede si queremos utilizar la implementación del método base en la clase derivada?, pues 
sólo necesitamos llamar al método de la clase padre usando la palabra clave MyBase. 

Para ilustrar esta situación, añadiremos a la clase Empleado la propiedad Salario, y un método para 
calcularlo, de modo que todos los empleados tengan inicialmente el mismo salario, sin embargo, los 
administrativos necesitan un pequeño incremento. Para no tener que volver a realizar el cálculo en la 
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clase Administrativo, vamos a aprovechar el cálculo que ya se realiza en la clase padre, añadiendo sólo 
las operaciones particulares que necesitemos. Veámoslo en el Código fuente 268. 


Module Modulel 
Sub Main() 

Dim loEmp As New Empleado() 

loEmp.pilD = 50 

loEmp.Nombre = "juan casas" 

loEmp.VerDatos() 

loEmp.CalcularSalario() 

Consolé.WriteLine("Salario {0} " , loEmp.Salario) 
Consolé.WriteLine() 

Dim loAdmin As New Administrativo() 

loAdmin.pilD = 129 

loAdmin.Nombre = "elena redondo" 

loAdmin.VerDatos() 

loAdmin.CalcularSalario() 

Consolé.WriteLine("Salario {0} " , loAdmin.Salario) 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 


Public miSalario As Integer 

Public Property Salario() As Integer 
Get 

Return miSalario 
End Get 

Set(ByVal Valué As Integer) 
miSalario = Valué 
End Set 
End Property 

Public Overridable Sub CalcularSalario() 
Me.Salario = 800 
End Sub 


End Class 

Public Class Administrativo : Inherits Empleado 


Public Overrides Sub CalcularSalario() 

' utilizamos el método de la clase base 
MyBase.CalcularSalario() 

Me.Salario += 50 
End Sub 
End Class 

Código fuente 268 


Debido a cuestiones de diseño, en algunas ocasiones precisaremos que al mismo tiempo que 
sobrescribimos un miembro dentro de una clase heredada, dicho miembro no pueda ser sobrescrito por 
las clases que hereden de esta. En estas situaciones, al declarar el miembro, usaremos la palabra clave 
NotOverridable. 
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Volvamos pues, al ejemplo de la clase Administrativo, en el que sobrescribíamos el método 
VerDatos(). Si cambiamos la declaración de dicho método por la mostrada en el Código fuente 269, 
una tercera clase Directivo, que heredase de Administrativo, no podría sobrescribir el mencionado 
método. 


Public Class Administrativo : Inherits Empleado 

1 rescribimos este método totalmente usando Overrides 
' e impedimos que pueda ser rescrito por clases 
1 derivadas de esta 

Public NotOverridable Overrides Sub VerDatos() 

Consolé.WriteLine("Datos del empleado") 

Consolé.WriteLine("==================") 

Consolé.WriteLine("Código: {0 } ", Me.pilD) 

Consolé.WriteLine("Nombre: {0}", UCase(Me.Nombre)) 

End Sub 
End Class 

Public Class Directivo : Inherits Administrativo 

' se produce un error, no se puede sobrescribir este método 
1 ya que la clase Administrativo lo impide con NotOverridable 
Public Overrides Sub VerDatos() 


End Sub 
End Class 

Código ñiente 269 


No podemos utilizar NotOverridable en métodos de una clase base, ya que la misión de este 
modificador es impedir la sobre-escritura de miembros en clases derivadas, pero desde una clase que a 
su vez también ha sido derivada desde la clase base. Si no queremos, en una clase base, que un método 
pueda ser sobrescrito, simplemente no utilizamos en su declaración la palabra clave Overridable. 


Diferencias entre sobrecarga y sobre-escritura en base al 
tipo de enlace 

La otra diferencia entre sobrecarga y sobre-escritura consiste en el tipo de enlace que utilizan. 
Mientras que la sobrecarga se basa en enlace temprano, la sobre-escritura emplea enlace tardío. 

El mejor modo de comprobar este punto, consiste en declarar una variable con un tipo perteneciente a 
una clase base, pero asignándole un objeto correspondiente a una clase heredada. 

Por ejemplo, en el caso de la sobrecarga, creamos las ya conocidas clases Empleado y Administrativo, 
escribiendo el método VerAlta(), sobrecargado en cada una de ellas. 

A continuación declaramos una variable de tipo Empleado, pero instanciamos un objeto de la clase 
Administrativo y lo asignamos a la variable. Debido a que el enlace temprano se basa en el tipo de la 
variable y no en el objeto que contiene, el método VerAlta() al que podremos acceder será el que se 
encuentra en la clase Empleado. Veamos el Código fuente 270. 


Module Modulel 
Sub Main() 
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Dim loPersona As Empleado 
loPersona = New Administrativo() 
loPersona.psNombre = "Juan García" 
loPersona.pdtFHAlta = "15/1/2002" 

' como la sobrecarga utiliza enlace temprano, 

1 se basa en el tipo de la variable y no 
1 en el objeto que se asigna a esa variable, 

1 por ello sólo es visible la implementación 
1 del método que hay en la clase Empleado 
loPersona.VerAlta() 

1 si intentamos ejecutar el método VerAlta() 

' que recibe una cadena, se producirá el siguiente error: 
' "Demasiados argumentos para 'Public Sub VerAlta()' 
loPersona.VerAlta("Mes") 1 <-- error 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Public psNombre As String 
Public pdtFHAlta As Date 

' mostrar la fecha de alta al completo 
Public Sub VerAlta() 

Consolé.WriteLine("El empleado {0} se incorporó el {l}", 
Me.psNombre, Me.pdtFHAlta) 

End Sub 
End Class 

Public Class Administrativo : Inherits Empleado 
1 mostrar sólo una parte de la fecha de alta 
1 según el parámetro pasado 

Public Overloads Sub VerAlta(ByVal IsParteFecha As String) 

Dim lsValorFecha As String 
Select Case IsParteFecha 
Case "Mes" 

lsValorFecha = Format(Me.pdtFHAlta, "MMMM") 

Case "DiaSemana" 

lsValorFecha = Format(Me.pdtFHAlta, "dddd") 

End Select 

Consolé.WriteLine("Empleado {0}", Me.psNombre) 

Consolé.WriteLine("Incorporado {o}", lsValorFecha) 

End Sub 
End Class 

Código ñiente 270 


Pasando seguidamente a la sobre-escritura, escribiremos en la clase padre el método MostrarNombre( 
), y lo sobrescribiremos en la clase hija. Instanciaremos después un objeto Administrativo y lo 
asignaremos a la variable tipificada como Empleado. Debido a que el enlace tardío se basa en el tipo 
del objeto que contiene la variable, y no en el tipo de la variable, al llamar al método MostrarNombre( 
), se ejecutará la versión de la clase Administrativo. Veamos el Código fuente 271. 


Module Modulel 
Sub Main() 

Dim loPersona As Empleado 
loPersona = New Administrativo() 
loPersona.psNombre = "Juan García" 

1 como la sobre-escritura utiliza enlace tardío, 

1 se basa en el objeto que contiene la variable y 
1 no en el tipo de dato de la variable, se ejecuta 
1 la versión del método MostrarNombre() que está 
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1 en la clase Administrativo, ya que el 

1 que contiene la variable loPersona es 

1 instancia de Administrativo 
loPersona.MostrarNombre() 

Consolé.ReadLine() 

End Sub 

End Module 

obj eto 

una 

Public Class Empleado 

Public psNombre As String 

Public pdtFHAlta As Date 


Public Overridable Sub MostrarNombre() 

Consolé.WriteLine("El nombre del empleado es {0}", 

Me.psNombre) 

End Sub 

End Class 

Public Class Administrativo : Inherits Empleado 
Public Overrides Sub MostrarNombre() 

Consolé.WriteLine("Nombre del empleado") 

Consolé . WriteLine ("-") 

Consolé.WriteLine(UCase(Me.psNombre)) 

End Sub 

End Class 



Código fuente 271 


La Tabla 23 muestra, al utilizar sobre-escritura, la clase de la cuál será ejecutado el método, en función 
de la referencia de la variable y el tipo de objeto. 


Si la referencia de la variable 
es de la clase... 

...y el tipo de objeto es de la 
clase... 

...el método ejecutado será de 
la clase 

Base 

Base 

Base 

Base 

Derivada 

Derivada 

Derivada 

Derivada 

Derivada 


Tabla 23. Método ejecutado mediante enlace tardío bajo sobre-escritura. 


Debido al hecho de que los miembros sobrescritos emplean enlace tardío, otra de las denominaciones 
que se utiliza para ellos es la de método virtual. 


La palabra clave MyClass 

Ante una situación de sobre-escritura de métodos en una clase base y heredada, la palabra clave 
MyClass, nos permite, alterar el comportamiento por defecto en la llamada al método, forzando la 
ejecución del que existe en la clase base. Expliquemos mejor este aspecto con un ejemplo ilustrativo. 

Creamos la clase Empleado y su clase hija Administrativo, y en ambas escribimos el método 
VerFecha( ) utilizando sobre-escritura; este método va a ser llamado a su vez desde el método 
MostrarDatos(), que se encuentra en la clase Empleado con la siguiente sintaxis. 
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Me.VerFecha() 

Si desde el código cliente distanciamos un objeto de Administrativo, al ejecutar MostrarDatos( ), la 
versión de VerFechaf ) ejecutada será la que se encuentra en el código de la clase Administrativo. 

¿Pero y si necesitamos ejecutar la versión de VerFecha() que está en el código de la clase Empleado?, 
pues es posible utilizando la palabra clave MyClass. Veamos este ejemplo al completo en el Código 
fuente 272. 


Module Modulel 
Sub Main() 

Dim oAdmin As New Administrativo() 
oAdmin.Nombre = "Alfredo" 
oAdmin.FechaAlta = DateTime.Today 
oAdmin.MostrarDatos() 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Public Nombre As String 
Public FechaAlta As Date 

Public Sub MostrarDatos () 

Consolé.WriteLine("Datos del empleado") 

Consolé.WriteLine("Nombre: {0 } ", Me.Nombre) 

Me.VerFecha() ' ejecuta VerFecha de clase Administrativo 

MyClass.VerFecha() 1 ejecuta VerFecha de clase Empleado 

End Sub 

Public Overridable Sub VerFecha() 

Consolé.WriteLine("Fecha alta completa: {0}", Me.FechaAlta) 
End Sub 
End Class 

Public Class Administrativo 
Inherits Empleado 

Public Overrides Sub VerFecha() 

Consolé.WriteLine("Fecha alta -sólo nombre mes- : {0}" , 

Me.FechaAlta.ToString("MMMM")) 

End Sub 
End Class 

Código fuente 272 


Como podemos suponer, MyClass fuerza a ejecutar la implementación del método que existe en la 
clase desde la que se hace la llamada a dicho método. 


Ocultamiento de miembros de una clase 

Esta técnica consiste en crear dentro de una clase derivada, miembros con el mismo nombre (y firma, 
en el caso de métodos) que los existentes en la clase base, pero ocultando el acceso a los miembros de 
la clase base para los objetos instanciados de la subclase. Utilizaremos la palabra clave Shadows, en la 
declaración de aquellos miembros a esconder. 
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Cuando aplicamos el ocultamiento sobre una subclase que tiene métodos sobrecargados en la clase 
base, dichos métodos sobrecargados quedarán inaccesibles para la clase derivada. Como ejemplo, en el 
Código fuente 273, la clase Empleado implementa dos versiones sobrecargadas del método Sueldo( ), 
mientras que la clase hija Administrativo también tiene el método Sueldo( ), pero al declararse con 
Shadows, impide que los objetos de tipo Administrativo ejecuten los métodos Sueldo( ) de la clase 
Empleado. 


Module Modulel 
Sub Main() 

Dim loAdmin As New Administrativo() 

Dim ldblmporte As Double 
Dim lsFecha As String 
loAdmin.Salario = 925.86 

ldblmporte = loAdmin.Sueldo(80, "Viajes") 

' los siguientes métodos están ocultos 

1 desde este objeto y se produce un error al llamarlos 

loAdmin.Sueldo() 

lsFecha = loAdmin.Sueldo(5) 

End Sub 

End Module 

Public Class Empleado 

Private mdbSalario As Double 

Public Property Salario() As Double 
Get 

Return mdbSalario 
End Get 

Set(ByVal Valué As Double) 
mdbSalario = Valué 
End Set 
End Property 

' métodos sobrecargados 
Public Overloads Sub Sueldo() 

1 aquí mostramos en consola el importe del sueldo formateado 
Consolé.WriteLine("El sueldo es {0}", Format(Me.Salario, "#,#.##")) 
Consolé.ReadLine() 

End Sub 

Public Overloads Function Sueldo(ByVal liDia As Integer) As String 
' aquí mostramos la fecha del mes actual 
' en la que se realizará la transferencia 
' del sueldo al banco del empleado 
Dim ldtFechaActual As Date 
Dim lsFechaCobro As String 
ldtFechaActual = Now() 

lsFechaCobro = CStr(liDia) & "/" & _ 

CStr(Month(ldtFechaActual)) & "/" & _ 

CStr(Year(ldtFechaActual)) 

Return lsFechaCobro 
End Function 
End Class 

Public Class Administrativo 
Inherits Empleado 

1 este método ensombrece/oculta a los sobrecargados 
1 de la clase base Empleado 
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Public Shadows Function Sueldo(ByVal ldblmportelncentivo As Double, 
ByVal IsTipoIncentivo As String) As Double 
1 aquí calculamos la cantidad de incentivo 
' que se añadirá al sueldo del empleado, 

' en función del tipo de incentivo 
Dim ldblncentivo As Double 

' según el tipo de incentivo, 

' se descuenta un importe 
1 de la cantidad del incentivo 
Select Case IsTipoIncentivo 
Case "Viajes" 

ldblncentivo = ldblmportelncentivo - 30 
Case "Extras" 

ldblncentivo = ldblmportelncentivo - 15 
End Select 

Return ldblncentivo 
End Function 
End Class 

Código fuente 273 


Cuando en una clase hija creamos un método con el mismo nombre y parámetros que en la clase 
padre, el compilador realiza un ocultamiento implícito, aunque genera un aviso, recomendando que 
declaremos el método de la clase hija con Shadows. Veamos el Código fuente 274. 


Public Class Empleado 

1 


Public Sub Sueldo() 

1 aquí mostramos en consola el importe del sueldo formateado 

Consolé.WriteLine("El sueldo es {0}", Format(Me.Salario, "#,#.##")) 

Consolé.ReadLine() 

End Sub 

l 

End Class 


Public Class Administrativo 


1 si aquí no utilizáramos Shadows, el entorno 
' marcarla este método con un aviso 

Public Shadows Sub Sueldo() 

1 aquí incrementamos el valor actual de la 
Me.Salario += 250 

End Sub 

1 

propiedad Salario 

End Class 



Código fuente 274 


Por otra parte, si aplicamos el ocultamiento en la sobre-escritura, el comportamiento del objeto se verá 
profundamente afectado. La mejor situación para comprobar este particular consiste en declarar una 
variable de la clase base y asignarle un objeto de una clase heredada. 

A pesar de que, como hemos comentado anteriormente, la sobre-escritura se basa en el enlace tardío, 
si ocultamos un miembro de la clase derivada, forzaremos al objeto a dirigirse a la versión de dicho 
miembro existente en la clase padre. 
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El ejemplo del Código fuente 275 muestra este caso. En él creamos nuestras dos clases habituales, 
Empleado y Administrativo, relacionadas mediante herencia, con un método sobrescrito en ambas, que 
tiene la particularidad de que la versión existente en la clase derivada está oculto con Shadows. Esto 
hará que al instanciar un objeto de la clase hija, y pasárselo a una variable referenciada hacia la clase 
padre, la llamada al método sea desviada hacia la implementación existente en la clase padre, en lugar 
de a la clase derivada como sería su comportamiento habitual. 


Module Modulel 
Sub Main() 

Dim loPersona As Empleado 
loPersona = New Administrativo() 
loPersona.psNombre = "Juan" 

1 estamos utilizando sobre-escritura, 

1 por lo que el enlace tardío emplea el objeto 
1 que hay dentro de la variable y no la 
' referencia de la variable; 

' al estar oculta con Shadows la implementación 
1 del método MostrarNombre() en la clase Administrativo 
1 se ejecuta dicho método pero de la clase Empleado 
loPersona.MostrarNombre() 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Public psNombre As String 
Public pdtFHAlta As Date 

Public Overridable Sub MostrarNombre() 

Consolé.WriteLine("El nombre del empleado es {0}", 

Me.psNombre) 

End Sub 
End Class 

Public Class Administrativo : Inherits Empleado 
' ocultamos este método 
Public Shadows Sub MostrarNombre() 

Consolé.WriteLine("Nombre del empleado") 

Consolé.WriteLine("===================") 

Consolé.WriteLine(UCase(Me.psNombre)) 

End Sub 
End Class 

Código fuente 275 

La Tabla 24 muestra, al utilizar sobre-escritura y ocultamiento, la clase de la cuál será ejecutado el 
método, en función de la referencia de la variable y el tipo de objeto. 


Si la referencia de la variable 
es de la clase... 

...y el tipo de objeto es de la 
clase... 

...el método ejecutado será de 
la clase 

Base 

Base 

Base 

Base 

Derivada 

Base 

Derivada 

Derivada 

Derivada 


Tabla 24. Método ejecutado mediante enlace tardío bajo sobre-escritura, aplicando ocultamiento. 
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Herencia y métodos constructores 

Podemos crear una clase base que implemente un constructor y una subclase sin él. En esta situación, 
cuando distanciemos un objeto de la subclase, se llamará implícitamente al constructor de la clase base 
para ejecutar el código de inicialización. También es posible crear el constructor sólo en la clase 
derivada. 

Si ambas clases disponen de un constructor, en primer lugar se ejecutará el constructor de la clase base 
y después el de la clase derivada. Realmente, el primer constructor ejecutado corresponde a la clase 
Object, y sucesivamente, se irán ejecutando todos los constructores de la jerarquía de clases hasta 
llegar a la clase que originó la llamada. 

El problema sobreviene cuando en la clase base creamos un constructor parametrizado, ya que ello 
obliga a sus clases derivadas a crear también un método constructor dentro del cuál se haga una 
llamada al constructor de la clase base. Para llamar explícitamente a un método de la clase base desde 
una subclase utilizaremos la palabra clave MyBase, que contiene una referencia hacia la clase padre. 

Veamos un ejemplo, en el Código fuente 276 se crea una clase padre Empleado y la subclase 
Administrativo. Puesto que Empleado dispone de un constructor parametrizado, en Administrativo 
debemos crear también un constructor, y dentro de él llamar en primer lugar al constructor base. 


Public Class Empleado 

Public pilD As Integer 
Public psNombre As String 
Public piSalario As Integer 

1 constructor parametrizado 

Public Sub New(ByVal lsNombre As String) 

Me.psNombre = lsNombre 
End Sub 
End Class 

Public Class Administrativo 
Inherits Empleado 

1 constructor normal 
Public Sub New() 

' llamada al constructor 
1 de la clase base 
MyBase.New("Juan") 

Me.piSalario = 100 
End Sub 
End Class 

Código ñiente 276 


Podemos no obstante, evitar la obligación de escribir un constructor en la clase derivada, si en la clase 
padre creamos un constructor sin parámetros. Como ya sabemos, la sobrecarga de métodos nos 
permite escribir varios métodos con el mismo nombre y diferente lista de parámetros. Modifiquemos 
para ello la clase Empleado como muestra el Código fuente 277. 


Public Class Empleado 

Public pilD As Integer 
Public psNombre As String 
Public piSalario As Integer 
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' constructor parametrizado 
Public Sub New(ByVal lsNombre As String) 
Me.psNombre = lsNombre 
End Sub 

' constructor sin parámetros 
Public Sub New() 

psNombre = "hola" 

End Sub 
End Class 

Public Class Administrativo 
Inherits Empleado 

1 al disponer en la clase base de 
1 un constructor normal, ya no hay 
1 necesidad de crear un constructor 
1 en esta clase derivada 
End Class 

Código ñiente 277 


Finalmente, debemos apuntar dos reglas que debe cumplir todo método constructor de una subclase 
que llame al constructor de su clase base: en primer lugar, el constructor base debe ser llamado en la 
primera línea del constructor derivado; en segundo lugar, el constructor base sólo puede ser llamado 
una vez desde el constructor derivado. 


Clases selladas o no heredables 

Toda clase que declaremos en nuestro código es heredable por defecto; esto supone un elevado grado 
de responsabilidad, en el caso de que diseñemos una clase pensando en que pueda ser utilizada por 
otros programadores que hereden de ella. Si en un determinado momento, necesitamos hacer cambios 
en nuestra clase, dichos cambios afectarán a las clases derivadas que hayan sido creadas. 

Por dicho motivo, si no queremos que nuestra clase pueda ser heredada por otras, debemos declararla 
de forma que no permita herencia; a este tipo de clase se le denomina clase no heredable o sellada 
(sealed). 

Para definir una clase no heredable, debemos utilizar la palabra clave Notlnheritable en el momento de 
su declaración. 

En la Figura 121 hemos creado la clase Fichero como no Notlnheritable, por ello, cuando a 
continuación declaramos la clase FiTexto e intentamos que herede de Fichero, se mostrará un mensaje 
de error en el editor de código, indicándonos que no es posible establecer esta relación de herencia 
puesto que Fichero es una clase sellada. 

B Public Notlnheritable Class Fichero 
Public psRuta Os String 

l-End Class 

B Public Class FiTexto 
Inherits Fichero 

1'FiTexto' no puede heredar de 'class Fichero' porque 'Fichero' aparece marcado como 'Notlnheritable'. | 

L-End Class 

Figura 121. No es posible heredar de una clase Notlnheritable. 
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Clases abstractas o no instanciables 

Una clase abstracta es aquella que no permite la instanciación directa de objetos a partir de ella, siendo 
necesario una clase derivada para acceder a sus miembros. Una clase concreta es el tipo de clase que 
venimos utilizando hasta el momento, desde la cuál, podemos instanciar objetos. 

Aunque en una clase abstracta podemos escribir un método constructor, sólo será accesible desde el 
constructor de la subclase. 

Para definir una clase abstracta utilizaremos la palabra clave Mustlnherit en el momento de su 
declaración, como muestra el Código fuente 278. 


Public Mustlnherit Class Empleado 

Código fuente 278 


Dentro de una clase abstracta podemos implementar propiedades y métodos, en la forma que hemos 
visto hasta el momento. Adicionalmente, podemos obligar a que determinados miembros sean 
sobrescritos por la clase heredada; son los denominados miembros abstractos, y se declaran usando la 
palabra clave MustOverride, como vemos en el Código fuente 279. 


Module Modulel 

Public Sub Main() 

Dim loAdmin As New Administrativo;) 
loAdmin.pilD = 789 

loAdmin.psNombre = "Pedro Pinares" 

Consolé.WriteLine("Nombre en mayúsculas del administrativo: {0}", 
loAdmin.NombreMay) 
loAdmin.pdtFHAlta = "8/10/01" 
loAdmin.MesesActivo() 

Consolé.Read() 

End Sub 
End Module 

' clase abstracta, 

' no podemos crear objetos Empleado 
Public Mustlnherit Class Empleado 
Public pilD As Integer 
Public psNombre As String 
Public pdtFHAlta As Date 

Public ReadOnly Property NombreMay() As String 
Get 

Return UCase(Me.psNombre) 

End Get 
End Property 

' método abstracto; 

1 este método debe ser sobrescrito 

1 por la clase derivada 

Public MustOverride Sub MesesActivo() 

Public Sub VerDatos() 

Consolé.WriteLine("Información sobre el empleado." & _ 

" ID:{o} - Nombre:{l} - Fecha de alta:{2}", 

Me.pilD, Me.psNombre, Me.pdtFHAlta) 

Consolé.WriteLine() 
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End Sub 
End Class 

1 desde esta clase tendremos acceso 
1 a los miembros de la clase Empleado 
Public Class Administrativo 
Inherits Empleado 

' en esta clase sobrescribimos este método 
' declarado como abstracto en la clase abstracta 
Public Overrides Sub MesesActivo() 

Consolé.WriteLine("Entró en el mes de {o}", 

Format(Me.pdtFHAlta, "MMMM")) 

Consolé.WriteLine("El número de meses que lleva es: {o}", 
DateDiff(Datelnterval.Month, Me.pdtFHAlta, Now)) 

End Sub 

Public Overrides Sub VerDatos() 


End Sub 
End Class 

Código ñiente 279 


Debemos tener en cuenta que los miembros abstractos sólo tienen sentido si son declarados en clases 
abstractas. Por tal motivo, sólo podremos crear métodos con MustOverride en clases que hayan sido 
definidas como Mustlnherit. 

En lo que respecta al polimorfismo conseguido a través de clases abstractas, podemos crear un 
procedimiento que reciba como parámetro tipificado como clase abstracta, de forma que en función 
del objeto pasado, y que debe ser de un tipo derivado de la clase abstracta, el comportamiento será 
diferente en cada caso. Veámoslo en el Código fuente 280. 


Module Modulel 

Public Sub Main() 

I 

End Sub 

' el objeto que reciba este procedimiento será 
' de cualquiera de las clases que hereden de 
1 Empleado y ejecutará la implementación del método 
1 VerDatos() que tenga dicho objeto 

Public Sub Mostrarlnformacion(ByVal loEmple As Empleado) 
loEmple.VerDatos() 

End Sub 
End Module 

Código fuente 280 
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Comprobación del tipo de un objeto y moldeado (casting) 

En algunas circunstancias, puede ser útil codificar un procedimiento que reciba como parámetro un 
objeto genérico, y dependiendo del tipo del objeto, ejecutar ciertos métodos. 

Si tipificamos un parámetro como un objeto genérico, es decir, de tipo Object, necesitamos 
implementar dentro del procedimiento un mecanismo que, en primer lugar, compruebe a qué tipo 
pertenece el objeto, y por otra parte, acceda adecuadamente a su lista de miembros. 

Como ejemplo consideremos el siguiente caso: creamos una clase Empleado y otra Factura, las cuales 
vemos en el Código fuente 281. 


Public Class Empleado 

Public pilD As String 
Public psNombre As String 

Public Overridable Sub VerDatosO 

Consolé.WriteLine("Código de empleado: {0}, nombre: {1}", 
Me.pilD, Me.psNombre) 

End Sub 
End Class 

Public Class Factura 

Public pdtFecha As Date 
Public pilmporte As Integer 

Public Sub Emitir() 
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Consolé.WriteLine("Se procede a generar la siguiente factura:") 
Consolé.WriteLine("Fecha de factura: {o}", Me.pdtFecha) 

Consolé.WriteLine("Importe de la factura: {o}", Me.pilmporte) 
End Sub 
End Class 

Código ñiente 281 


A continuación, necesitamos un procedimiento al que podamos pasar indistintamente un objeto 
Empleado o Factura. Dentro de dicho procedimiento, al que denominaremos ManipularVarios( ), y 
que llamaremos desde Main( ), comprobaremos el tipo de objeto llamando al método GetType( ), que 
implementan todos los objetos del entorno, debido a que es un método de la clase Object, y como ya 
sabemos, todas las clases heredan implícitamente de Object. 

GetTypef ) devuelve un objeto de la clase Type. Esta clase es de una enorme utilidad, ya que nos 
proporciona toda la información relativa al tipo del objeto. Para nuestro problema particular, 
interrogaremos a la propiedad Ñame del objeto, que nos devolverá una cadena con el nombre de la 
clase a que pertenece el objeto. 

Conociendo ya el tipo de objeto con el que tratamos, utilizaremos la función CType(), que realiza un 
moldeado de la variable que contiene el objeto hacia un tipo determinado, y nos permite acceder a los 
elementos del objeto. 

El lector puede argumentar que no sería necesario el uso de CTypeQ, y en efecto es así; podríamos 
haber utilizado directamente la variable, situando a continuación el método a ejecutar. Esta técnica, no 
obstante, tiene el inconveniente de que utiliza enlace tardío para acceder al objeto. 

CType() sin embargo, tiene la ventaja de que opera bajo enlace temprano, con lo cuál, el rendimiento 
en ejecución es mayor. Veamos el código cliente que accedería a estas clases en el Código fuente 282. 


Module Modulel 

Public Sub Main() 

Dim loEmple As New Empleado() 

loEmple.pilD = 58 

loEmple.psNombre = "Elena Peral" 

ManipularVarios(loEmple) 

Dim loFac As New Factura() 
loFac.pdtFecha = "25/2/2002" 
loFac.pilmporte = 475 
ManipularVarios(loFac) 

Consolé.Read() 

End Sub 

Public Sub ManipularVarios(ByVal loUnObjeto As Object) 
' obtenemos información sobre el tipo del objeto 
Dim loTipoObj As Type 
loTipoObj = loUnObjeto.GetType() 

' comprobamos qué tipo de objeto es, 

1 y en función de eso, ejecutamos el 
1 método adecuado 
Select Case loTipoObj.Ñame 
Case "Empleado" 

CType(loUnObjeto, Empleado).VerDatosO 
Case "Factura" 

CType(loUnObjeto, Factura).Emitir() 


294 






© Grupo EIDOS 


14. Elementos compartidos e interfaces 


End Select 
End Sub 
End Module 

Código ñiente 282 


En el caso de clases heredadas, y con métodos sobrescritos, CType( ) discierne la implementación de 
clase a la que debe dirigirse. 

Si añadimos la clase Administrativo como hija de Empleado, y sobrescribimos el método VerDatos( ), 
cuando pasemos al procedimiento ManipularVarios( ) un objeto Administrativo, dado que esta clase 
hereda de Empleado, con un sencillo cambio en la estructura Select...Case que comprueba el tipo de 
objeto, ejecutaremos la implementación sobrescrita del método VerDatos() en la clase Administrativo. 
Veamos el Código fuente 283. 


Module Modulel 

Public Sub Main() 

Dim loEmple As New Empleado() 

loEmple.pilD = 58 

loEmple.psNombre = "Elena Peral" 

ManipularVarios(loEmple) 

Dim loAdmin As New Administrativo() 
loAdmin.pilD = 80 

loAdmin.psNombre = "Alfredo Iglesias" 
ManipularVarios(loAdmin) 

Dim loFac As New Factura() 
loFac.pdtFecha = "25/2/2002" 
loFac.pilmporte = 475 
ManipularVarios(loFac) 

Consolé.Read() 

End Sub 

Public Sub ManipularVarios(ByVal loUnObjeto As Object) 
' obtenemos información sobre el tipo del objeto 
Dim loTipoObj As Type 
loTipoObj = loUnObjeto.GetType() 

' comprobamos qué tipo de objeto es, 

' y en función de eso, ejecutamos el 

1 método adecuado 

Select Case loTipoObj.Ñame 

Case "Empleado", "Administrativo" 

CType(loUnObjeto, Empleado).VerDatosO 
Case "Factura" 

CType(loUnObjeto, Factura).Emitir() 

End Select 
End Sub 
End Module 

Public Class Administrativo 
Inherits Empleado 

Public pdtFHAlta As Date 

Public Overrides Sub VerDatosO 

Consolé.WriteLine("DATOS DEL ADMINISTRATIVO") 
Consolé.WriteLine("==================") 

Consolé.WriteLine("Código: {0 }", Me.pilD) 
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Consolé.WriteLine("Nombre: {o}", Me.psNombre) 
End Sub 

Public Function MesAltaO 

Return Format(Me.pdtFHAlta, "MMMM") 

End Function 
End Class 

Código ñiente 283 


Pero ¿cómo podríamos ejecutar el método particular MesAlta( ) de Administrativo, que no se 
encuentra en Empleado?, pues creando en la estructura Select...Case, un caso particular que 
compruebe cuándo estamos tratando con un objeto Administrativo. Veámoslo en el Código fuente 
284. 


Public Sub ManipularVarios(ByVal loUnObjeto As Object) 

' obtenemos información sobre el tipo del objeto 

Dim loTipoObj As Type 

loTipoObj = loUnObjeto.GetType() 

' comprobamos qué tipo de objeto es, 

1 y en función de eso, ejecutamos el 
1 método adecuado 
Select Case loTipoObj.Ñame 
Case "Empleado" 

CType(loUnObjeto, Empleado).VerDatosO 

Case "Administrativo" 1 <-- añadimos este caso a la estructura 
CType(loUnObjeto, Administrativo).VerDatosO 
Consolé.WriteLine("El administrativo comenzó en {0}", _ 
CType(loUnObjeto, Administrativo).MesAltaO) 

Case "Factura" 

CType(loUnObjeto, Factura).Emitir() 

End Select 
End Sub 

Código ñiente 284 


Miembros compartidos (shared) de una clase 

Los miembros compartidos o shared son aquellos que no precisan de una instancia previa de un objeto 
de la clase para poder ser utilizados, aunque pueden también ser usados por una instancia de la clase. 

Dentro de este contexto, podemos pues clasificar los miembros de una clase en dos categorías: 

• Miembros de instancia (instance members). Son aquellos a los que accedemos a través de 
un objeto instanciado previamente de la clase. 

• Miembros compartidos (shared members). Son aquellos a los que podemos acceder sin 
necesidad de que exista un objeto creado de la clase. 

Podemos declarar como compartidos los métodos, propiedades y campos de una clase. Para ello 
deberemos emplear la palabra clave Shared en la declaración. 
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Para utilizar desde el código cliente un miembro compartido, tan sólo debemos poner el nombre de la 
clase a la que pertenece, el punto y el nombre del miembro a utilizar. 

El ejemplo del Código fuente 285 demuestra como podemos ejecutar un método compartido sin haber 
instanciado antes un objeto de la clase a la que pertenece dicho método. 


Module General 
Sub Main() 

Dim lsValor As String 

1 aunque no hemos instanciado objetos 
1 de la clase Empleado, podemos llamar 
1 a este método compartido 

Consolé.WriteLine("Nombre del mes: {0 } " , Empleado.VerNombreMes()) 

1 ahora creamos una instancia de la clase 
Dim loEmpleadol As New Empleado() 
lsValor = loEmpleadol.VerNombreDia() 

Consolé.WriteLine("Nombre del día: {0 } " , lsValor) 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Public Shared Function VerNombreMes() As String 
' este método puede ser llamado 
1 directamente empleando el nombre 
1 de la clase como calificador 
Return Format(Now(), "MMMM") 

End Function 

Public Function VerNombreDia() As String 

1 este método precisa de una instancia 

1 para ser llamado 

Return Format(Now(), "dddd") 

End Function 
End Class 

Código fuente 285 


En el caso de variables de clase declaradas como miembros compartidos, este tipo de variable sólo es 
creado una vez, manteniendo su valor para todas las instancias de la clase. Esto contrasta con los 
miembros de instancia, de los que se crea una copia particular para cada objeto. 

El efecto de miembro compartido se hace más patente cuando se aplica sobre variables, por ello, en el 
ejemplo del Código fuente 286, creamos dos campos compartidos para la clase Empleado; uno de ellos 
actuará como contador de los objetos creados de la clase, usando el método constructor para ser 
incrementado. El otro nos servirá para comprobar que siendo compartido no se inicializa, y mantiene 
el valor asignado previamente. 


Module General 
Sub Main() 

1 accedemos a la variable compartida 

1 y le asignamos valor 

Empleado.psApellidos = "Naranjo" 

1 instanciamos un primer objeto Empleado 
Dim loEmpl As New Empleado() 
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' asignamos valor a su variable de instancia 
loEmpl.psNombre = "Luis" 

1 mostramos las dos variables del objeto 

Consolé.WriteLine("Objeto loEmpl - valores de sus variables") 

Consolé.WriteLine("psNombre: { 0 } - psApellidos: {1}", 
loEmpl.psNombre, loEmpl.psApellidos) 

Consolé.WriteLine() 

1 instanciamos un segundo objeto Empleado 
Dim loEmp2 As New Empleado() 

' asignamos valor a su variable de instancia 
loEmp2.psNombre = "Juan" 

1 mostramos las dos variables del objeto 

Consolé.WriteLine("Objeto loEmp2 - valores de sus variables") 

Consolé.WriteLine("psNombre: {0} - psApellidos: {l}", 

loEmp2.psNombre, loEmp2.psApellidos) 

Consolé.WriteLine() 

1 ahora mostramos el valor de 
' la variable compartida miContar 

Consolé.WriteLine("Se han instanciado {o} objetos de la clase Empleado", 
Empleado.piContar) 

Consolé.ReadLine() 

End Sub 
End Module 

Public Class Empleado 

Public psNombre As String ' miembro de instancia 

Public Shared psApellidos As String ' miembro compartido 

Public Shared piContar As Integer 1 miembro compartido 

Public Sub New() 

' por cada instancia de la clase creada, 

1 incrementar este campo compartido 
Me.piContar += 1 
End Sub 
End Class 

Código ñiente 286 


Definir una clase como punto de entrada de la aplicación 

Podemos crear una clase en el proyecto, que contenga un método Main( ) declarado como Shared, de 
forma que dicho método constituya el punto del programa. Ver Código fuente 287. 


Public Class Comienzo 

Public Shared Sub Main() 

Consolé.WriteLine("Está comenzando la aplicación") 
Consolé.ReadLine() 

End Sub 
End Class 

Código ñiente 287 


Además de crear la clase con este método, deberemos modificar las propiedades del proyecto, 
definiendo como objeto inicial el nombre de la clase o directamente Sub Main. Como habrá podido 
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adivinar el lector, ello hace innecesario el uso de módulos de código dentro del proyecto, pudiendo de 
esta manera, codificar la aplicación completamente basada en clases. 

Como detalle interesante, debemos destacar el hecho de que al utilizar el modo tradicional de inicio de 
una aplicación, es decir, a través de un procedimiento Main() en un módulo, el compilador convierte 
internamente dicho módulo en una clase y al procedimiento en un método compartido. 


Interfaces 

Un interfaz proporciona, a modo de declaración, una lista de propiedades y métodos, que 
posteriormente serán codificados en una o varias clases. 

Debido a su naturaleza declarativa, un interfaz no contiene el código de los miembros que expresa; 
dicho código será escrito en las clases que implementen el interfaz. 

El concepto de interfaz es análogo al de contrato, las partes integrantes son el propio interfaz y la clase 
que lo implementa. Mientras que el interfaz no puede ser cambiado desde el momento en que sea 
implementado, la clase que lo implementa se compromete a crear la lista de miembros en la misma 
forma que indica el interfaz 

Los interfaces nos permiten definir conjuntos reducidos de funcionalidades, constituyendo una útil 
herramienta de cara al polimorfismo. El mismo interfaz, implementado en distintas clases, podrá tener 
a su vez código distinto, con lo que los objetos de diferentes clases que implementen un interfaz 
común, pueden tener un comportamiento diferente. 

Supongamos por ejemplo, que necesitamos que algunas clases dispongan de ciertos miembros para la 
manipulación de cadenas, pero no queremos que estas características sean algo rígido, es decir, cada 
clase debe de cumplir con un conjunto de nombres y parámetros para los miembros que se encargarán 
de manipular cadenas, pero la implementación del código que haga cada clase para gestionarlas es 
libre. 

Ante esta situación podemos definir un interfaz e implementarlo en cada clase. El ejemplo 
desarrollado al completo para este caso se encuentra en el proyecto InterfacesPrueba (hacer clic aquí 
para acceder al ejemplo). 

En primer lugar crearemos un nuevo proyecto de tipo aplicación de consola. A continuación, para 
crear un interfaz, utilizaremos la palabra clave Interface junto con el nombre que asignemos al 
interfaz. Para indicar el final del interfaz usaremos la palabra clave End Interface, situando dentro del 
interfaz las declaraciones de miembros que necesitemos. En nuestro ejemplo vamos a crear el interfaz 
ICadena que declara la propiedad Longitud y el método ObtenerValor. Aunque no es en absoluto 
necesario, se recomienda que utilicemos la letra 1 como prefijo para los nombres de interfaces, de cara 
a facilitar la lectura del código, como vemos en el Código füente 288. 


' las clases que implementen este interfaz 
' deberán crear la propiedad Longitud y el 
1 método ObtenerValor(); la codificación de 
1 dichos miembros será particular a cada clase 
Public Interface ICadena 

ReadOnly Property Longitud() As Integer 
Function ObtenerValor() As String 
End Interface 

Código fuente 288 
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Seguidamente crearemos la clase Empleado. Para que dicha clase pueda implementar (utilizar) las 
definiciones de un interfaz, emplearemos después de la declaración de la clase, la palabra clave 
Implements junto al nombre del interfaz que deseamos que implemente la clase. Veamos el Código 
fuente 289. 


Public Class Empleado 
Implements Cadena 


End Class 

Código ñiente 289 


Esta acción obligará a la clase a crear, como mínimo, tantos miembros como indica el interfaz que 
implementa, es decir, debemos escribir una propiedad Longitud y un método ObtenerValor( ), o en 
caso contrario, se producirá un error al intentar ejecutar el programa. Observe el lector, que el editor 
de código sitúa una marca sobre el nombre del interfaz en la clase mientras que no se hayan 
implementado todos sus miembros. Ver Figura 122. 


Public Class Empleado 
Implements Cadena 


El tipo 'InterfacesPrueba. Empleado' debe implementar 'Function ObtenerValor() As String' para la interfaz 
Priuate msNombi 'InterfacesPrueba.Cadena'. 


Figura 122. Mensaje del interfaz que indica que no se han implementado todos sus miembros. 


Para implementar un miembro de un interfaz, en el momento de escribir su declaración, utilizaremos 
la palabra clave Implements, seguida del interfaz y miembro que implementa. Veamos en el Código 
fuente 290, la implementación del método ObtenerValor( ) en la clase Empleado, con su código 
correspodiente. 


Public Function ObtenerValor() As String Implements ICadena.ObtenerValor 
Return UCase(Me.Nombre) 

End Function 

Código ñiente 290 


La necesidad de especificar el interfaz y miembro del mismo que implementa, tiene como ventaja, el 
que para el nombre del método podemos utilizar uno distinto del que indica el interfaz. Por ejemplo, el 
anterior método podríamos haberlo escrito como muestra el Código fuente 291. 


Public Function DameDatos() As String Implements ICadena.ObtenerValor 
Return UCase(Me.Nombre) 

End Function 

Código fuente 291 
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Un medio muy sencillo de crear un método vacío que implemente un interfaz, consiste en abrir la lista 
Nombre de clase del editor de código y allí, seleccionar en la clase, el interfaz que implementa. Ver 
Figura 123. 


Página de inicio Modulel.vb* TextFilel.txt* 

^¿Empleado (InterfacesPrueba) 

í *+ Empleado (InterfacesPrueba) 


ICadena (InterfacesPrueba) 


»-olCadena (InterfacesPrueba) 

9 ^. Module 1 (InterfacesPrueba) _ a 

i -i ! r J i _ J r J 

Figura 123. Selección del interfaz implementado por una clase en el editor de código. 


Después pasaremos a la lista Nombre de método y elegiremos el miembro a implementar. Ver Figura 
124. 


I0\ (Declaraciones) 

▼ 

|lO\ (Declaraciones) 


\miLonqitud 

1 

ObtenerVafor 



Figura 124. Selección del miembro del interfaz a implementar. 


Estas acciones crearán el método vacío con la implementación del interfaz. Como podemos observar 
en el Código fuente 292, en la declaración del método se incluye el nombre calificado al completo. 


Public ReadOnly Property Longitud() As Integer _ 
Implements InterfacesPrueba.ICadena.Longitud 
Get 

End Get 
End Property 

Código ñiente 292 


En la implementación del interfaz ICadena para la clase Empleado, devolvemos el nombre en 
mayúsculas del empleado y la longitud de dicho nombre en los dos miembros correspondientes a 
dicho interfaz. 

Naturalmente, aparte de los miembros del interfaz, una clase puede tener todos los demás que necesite. 

Posteriormente creamos una segunda clase en nuestro proyecto con el nombre Cuenta, en la que 
también implementamos el interfaz ICadena, pero en los miembros implementados sobre esta clase las 
operaciones realizadas no serán exactamente iguales, ya que como hemos indicado, la implementación 
que hagamos de los miembros de un interfaz en una clase es totalmente libre para el programador. 

El Código fuente 293 muestra el código al completo de este ejemplo, incluyendo el interfaz, las clases 
que lo implementan y el procedimiento Main() que instancia objetos de las clases. 
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Module Modulel 
Sub Main() 

Dim loEmple As Empleado = New Empleado() 
loEmple.Nombre = "Raquel Rodrigo" 

Consolé.WriteLine("El nombre del empleado tiene { 0 } caracteres", 
loEmple.Longitud) 

Consolé.WriteLine("Valor del empleado: {o}", loEmple.ObtenerValor()) 

Dim loCuenta As Cuenta = New Cuenta() 
loCuenta.Codigo = 700256 

Consolé.WriteLine("El código de cuenta {0} tiene una longitud de {l}", __ 
loCuenta.Codigo, loCuenta.Longitud) 

Consolé.WriteLine("Información de la cuenta: {o}", loCuenta.ObtenerValor()) 

Consolé.Read() 

End Sub 
End Module 

1 las clases que implementen este interfaz 
1 deberán crear la propiedad Longitud y el 
1 método ObtenerValor(); la codificación de 
1 dichos miembros será particular a cada clase 
Public Interface ICadena 

ReadOnly Property Longitud() As Integer 
Function ObtenerValor() As String 
End Interface 

Public Class Empleado 
Implements ICadena 

Private msNombre As String 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 

' devolvemos la longitud de la propiedad Nombre, 

1 al especificar el interfaz que se implementa, 

1 se puede poner todo el espacio de nombres 
Public ReadOnly Property Longitud() As Integer _ 

Implements InterfacesPrueba.ICadena.Longitud 
Get 

Return Len(Me.Nombre) 

End Get 
End Property 

1 devolvemos el nombre en mayúscula; 

' no es necesario poner todo el espacio 
1 de nombres calificados, basta con el 
1 nombre de interfaz y el miembro a implementar 

Public Function ObtenerValor() As String Implements ICadena.ObtenerValor 
Return UCase(Me.Nombre) 

End Function 
End Class 

Public Class Cuenta 

Implements ICadena 

Private miCodigo As Integer 

Public Property Codigo() As Integer 
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Get 

Return miCodigo 
End Get 

Set(ByVal Valué As Integer) 
miCodigo = Valué 
End Set 
End Property 

' en esta implementación del miembro, devolvemos 
1 el número de caracteres que tiene el campo 
1 miCodigo de la clase 

Public ReadOnly Property Longitud() As Integer _ 
Implements InterfacesPrueba.ICadena.Longitud 
Get 

Return Len(CStr(miCodigo)) 

End Get 
End Property 

1 en este método del interfaz, devolvemos valores 
1 diferentes en función del contenido de la 
' propiedad Codigo 

Public Function ObtenerValor() As String _ 

Implements InterfacesPrueba.ICadena.ObtenerValor 

Select Case Me.Codigo 
Case 0 To 1000 

Return "Código en intervalo hasta 1000" 
Case 1001 To 2000 

Return "El código es: " & Me.Codigo 
Case Else 

Return "El código no está en el intervalo" 
End Select 
End Function 
End Class 

Código ñiente 293 


Los interfaces pueden heredar de otros interfaces que hayamos creado. De esta manera, si creamos el 
interfaz IGestion, podemos hacer que herede las características de ICadena y agregue más 
declaraciones de miembros. Ver Código fuente 294. 


Public Interface IGestion 
Inherits ICadena 

Sub Calcular() 

End Interface 

Código ñiente 294 


También es posible en un interfaz heredar de múltiples interfaces. Ver el Código fuente 295. 


Public Interface IGestion 

Inherits ICadena, ICalculo 

End Interface 

Código Líente 295 
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Estructuras 

Una estructura consiste en un conjunto de datos que se unen para formar un tipo de dato compuesto. 
Este elemento del lenguaje se conoce también como tipo definido por el usuario (UDT o User Defined 
Type), y nos permite agrupar bajo un único identificador, una serie de datos relacionados. 

En el lenguaje VB.NET, los miembros de una estructura pueden ser, además de los propios campos 
que almacenan los valores, métodos que ejecuten operaciones, por lo cual, su aspecto y modo de 
manejo es muy parecido al de una clase. 

Por ejemplo, si disponemos de la información bancaria de una persona, como pueda ser su código de 
cuenta, titular, saldo, etc., podemos manejar dichos datos mediante variables aisladas, o podemos crear 
una estructura que contenga toda esa información, simplificando la forma en que accedemos a tales 
datos. 


Creación y manipulación de estructuras 

Para crear una estructura, tenemos que utilizar la palabra clave Structure junto al nombre de la 
estructura, situando a continuación los miembros de la estructura, y finalizándola con la palabra clave 
End Structure, como muestra el Código fuente 296. 


Public Structure DatosBanco 

Public IDCuenta As Integer 
Public Titular As String 
Public Saldo As Integer 
End Structure 

Código ñiente 296 


El modo de utilizar una estructura desde el código cliente, consiste en declarar una variable del tipo 
correspondiente a la estructura, y manipular sus miembros de forma similar a un objeto. En el Código 
fuente 297, manejamos de esta forma, una variable de la estructura DatosBanco. 


Sub Main() 

Dim lDBanco As DatosBanco 
lDBanco.IDCuenta = 958 
lDBanco.Titular = "Carlos Perea" 
lDBanco.Saldo = 900 
End Sub 

Código ñiente 297 


Como hemos comentado antes, una estructura admite también métodos y propiedades, de instancia y 
compartidos, al estilo de una clase. Por lo que podemos añadir este tipo de elementos a nuestra 
estructura, para dotarla de mayor funcionalidad. El Código fuente 298 muestra un ejemplo más 
completo de la estructura DatosBanco. 


Module Modulel 
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Sub Main() 

1 declarar una variable de la estructura 

1 y manipularla directamente 

Dim lDBancol As DatosBanco 

lDBancol.IDCuenta = 958 

lDBancol.Titular = "Carlos Perea" 

lDBancol.DNI = "112233" 

lDBancol.Saldo = 900 

lDBancol.Información() 

Consolé.WriteLine() 

' declaramos una variable de la estructura 

1 pero aquí la instanciamos antes de 

1 comenzar a trabajar con ella, para que 

1 se ejecute su método constructor 

Dim lDBanco2 As DatosBanco 

lDBanco2 = New DatosBanco(450) 

lDBanco2.IDCuenta = 580 

lDBanco2.Titular = "Alfredo Peral" 

lDBanco2.DNI = "556677" 

lDBanco2.Información() 

Consolé.WriteLine() 

' en esta ocasión trabajamos con los 
1 miembros compartidos de la estructura, 

1 por lo que no es necesario una variable 
' con el tipo de la estructura, sino que 
' usamos directamente los miembros compartidos 
Consolé.WriteLine("La fecha de apertura de la cuenta es {o}", 

DatosBanco.FHApertura) 

DatosBanco.SaldoMin() 

Consolé.ReadLine() 

End Sub 
End Module 

Public Structure DatosBanco 

Public IDCuenta As Integer 
Public Titular As String 
Public Saldo As Integer 
Prívate mDNI As String 
Shared FHApertura As Date 
Shared SaldoMinimo As Integer 

' el constructor de una estructura debe definirse con 
1 parámetros; si no ponemos parámetros hay que declararlo 
1 como compartido 

Public Sub New(ByVal liSaldo As Integer) 

Saldo = liSaldo 
End Sub 

Public Property DNI() As String 
Get 

Return mDNI 
End Get 

Set(ByVal Valué As String) 
mDNI = Valué 
End Set 
End Property 

Public Sub Información() 

Consolé.WriteLine("Información sobre la cuenta") 

Consolé.WriteLine("Código: {O} - Titular: {l} - DNI: {2} - Saldo: {3}", 
IDCuenta, Titular, Me.DNI, Saldo) 

End Sub 
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miembros compartidos de la estructura 


' si el constructor no tiene parámetros 
1 debe ser compartido (shared), y además, 

1 los miembros que maneje deben ser también compartidos 
Shared Sub New() 

FHApertura = Now 
SaldoMinimo = 200 
End Sub 

' método compartido que devuelve el saldo mínimo 
Shared Sub SaldoMin() 

Consolé.WriteLine("El saldo mínimo necesario debe ser de {o}", 
SaldoMinimo) 

End Sub 
End Structure 


Código fuente 298 


Estructuras o clases, ¿cuál debemos utilizar? 

Llegados a este punto, el lector puede estar preguntándose cuál sería la mejor manera de abordar la 
aplicación: con clases o estructuras. Bien, no podemos decantamos totalmente por un modo u otro de 
trabajo. Aún guardando muchas similitudes con las clases, las estructuras mantienen ciertas diferencias 
respecto a las primeras, que harán conveniente su uso en determinados momentos, siendo menos 
adecuadas en otras situaciones. 

Las estructuras no soportan herencia, por lo que el medio más parecido que tenemos de extender sus 
funcionalidades es a través de interfaces. 

Para crear un manejador de evento dentro de una estructura, el procedimiento que actúe como 
manejador deberá ser un miembro compartido, no podrá ser un miembro de instancia. El manejo de 
eventos será tratado posteriomiente. 

Una estructura es un tipo por valor, lo que quiere decir que los datos que contiene se manejan en la 
pila (stack) de la memoria. Si asignamos una variable que contiene una estructura a otra variable, se 
realizará una copia de la estructura, y obtendremos dos estructuras cuyos datos serán totalmente 
independientes. 

Esto último contrasta claramente con las clases, que son tipos por referencia, y sus datos se manejan 
en el montón (heap) de la memoria. Lo que realmente contiene una variable de objeto no es el objeto 
en sí, sino un puntero de cuatro bytes, con la referencia hacia la zona de memoria en la que reside el 
objeto. Por lo tanto, si asignamos una variable de objeto a otra variable, se realiza lo que se denomina 
una copia superficial (shallow copy) de una variable a otra. Esto quiere decir que sólo se copia el 
puntero de cuatro bytes que contiene la referencia hacia el objeto. El efecto conseguido son dos 
variables que apuntan al mismo objeto y no dos variables con copias independientes del objeto. 

Observemos el Código fuente 299, en el que se crean dos variables de estructura y una se asigna a 
otra. Si hacemos un cambio en la segunda, la primera estructura permanecerá inalterada. Sin embargo, 
a continuación creamos dos variables de objeto, y asignamos la primera a la segunda. Cuando 
hagamos un cambio en la segunda, se reflejará en la primera; esto es debido a que son dos variables 
que apuntan al mismo objeto. 


Sub Main() 
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Dim lDBancol As DatosBanco 
Dim lDBanco2 As DatosBanco 

lDBancol.IDCuenta = 55 
lDBanco2 = lDBancol 
lDBanco2.IDCuenta = 188 

Consolé.WriteLine("lDBancol.IDCuenta --> {o}", lDBancol.IDCuenta) 1 55 

Consolé.WriteLine("lDBanco2.IDCuenta --> {o}", lDBanco2.IDCuenta) 1 188 

Consolé.WriteLine() 

Dim loEmpleadol As Empleado 
Dim loEmpleado2 As Empleado 

loEmpleadol = New Empleado() 
loEmpleadol.pildentificador = 55 
loEmpleado2 = loEmpleadol 
loEmpleado2.pildentificador = 188 

Consolé.WriteLine("loEmpleadol.pildentificador --> {o}", 
loEmpleadol.pildentificador) 1 188 

Consolé.WriteLine("loEmpleado2.pildentificador --> {o}", __ 
loEmpleado2.pildentificador) 1 188 

Consolé.ReadLine() 

End Sub 

Código ñiente 299 


Si vamos a tratar la estructura mayormente como un objeto, se recomienda que utilicemos mejor una 
clase. 


La estructura del sistema DateTime 

El entorno de .NET Framework proporciona, al igual que ocurre con las clases, una serie de 
estructuras del sistema, con funcionalidades diseñadas para ayudar al programador en las más variadas 
situaciones. 

Como ejemplo de este tipo de estructura encontramos a DateTime, en la que a través de sus miembros 
compartidos y de instancia, nos provee de diversas operaciones para el manejo de fechas. 

El Código fuente 300 muestra algunos ejemplos de uso de esta estructura. Consulte el lector la 
documentación de la plataforma para una descripción detallada sobre cada uno de sus miembros. 


Module Modulel 
Sub Main() 

1 ejemplos con la estructura DateTime 


1 miembros compartidos 

Dim ldtFechaActual As Date 

Dim ldtFechaA, ldtFechaB As Date 

1 la propiedad Today devuelve la fecha actual 
ldtFechaActual = DateTime.Today 

Consolé.WriteLine("La fecha de hoy es {0} " , ldtFechaActual) 
1 el método DaysInMonth() devuelve el número 
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' de días que tiene un mes 

Consolé.WriteLine("El mes de Febrero de 2002 tiene {0} días", 
DateTime.DaysInMonth(2002, 2)) 

1 el método CompareO compara dos fechas 
Consolé.WriteLine("Introducir primera fecha") 
ldtFechaA = Consolé.ReadLine() 

Consolé.WriteLine("Introducir segunda fecha") 
ldtFechaB = Consolé.ReadLine() 

Select Case DateTime.Compare(ldtFechaA, ldtFechaB) 

Case -1 

Consolé.WriteLine("La primera fecha es menor") 

Case 0 

Consolé.WriteLine("Las fechas son iguales") 

Case 1 

Consolé.WriteLine("La primera fecha es mayor") 

End Select 

1 miembros de instancia 
Dim loMiFecha As DateTime 
Dim ldtFDias As Date 
Dim ldtFMeses As Date 
Dim lsFHFormateada As String 

1 usar el constructor de la estructura 

1 para crear una fecha 

loMiFecha = New DateTime(2002, 5, 12) 

1 agregar días a la fecha 
ldtFDias = loMiFecha.AddDays(36) 

1 restar meses a la fecha 
ldtFMeses = loMiFecha.AddMonths(-7) 

1 formatear la fecha 

lsFHFormateada = loMiFecha.ToLongDateString() 

Consolé.WriteLine("Uso de métodos de instancia de DateTime") 
Consolé.WriteLine("Fecha creada: {0} - Agregar días: {l}" & _ 
" - Restar meses: {2} - Fecha formateada: {3}", 
loMiFecha, ldtFDias, ldtFMeses, lsFHFormateada) 

Consolé.ReadLine() 

End Sub 
End Module 

Código ñiente 300 


Enumeraciones 

Una enumeración consiste en un conjunto de constantes relacionadas. A cada constante se le asigna un 
nombre, mientras que la agrupación de tales constantes, es decir, la propia enumeración recibe 
también un nombre identificativo. 

Supongamos por ejemplo, que en un programa debemos realizar clasificaciones por estilos musicales: 
Rock, Blues, New Age, Funky, etc. El modo más sencillo de manipular estos valores en el código es 
identificarlos mediante números, de forma que cuando en un procedimiento tengamos que saber la 
selección del estilo que ha realizado un usuario, empleemos el número identificativo en lugar de 
cadenas de caracteres. Veamos el Código fuente 301. 


Public Sub SelecEstilo(ByVal liEstiloMusical As Integer) 
Select Case liEstiloMusical 
Case 1 
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' se 

ha 

seleccionado 

Rock 


Case 

2 






' se 

ha 

seleccionado 

Blues 


Case 

3 






' se 

ha 

seleccionado 

New Age 


Case 

4 






' se 

ha 

seleccionado 

Funky 

End 

Select 




End Sub 







Código fuente 301 


Sin embargo, la sencillez que supone el uso de números para identificar determinadas características 
en nuestra aplicación, tiene el efecto adverso de dificultar la lectura del código, ya que, en todos los 
procedimientos donde debamos trabajar con estilos musicales, deberemos de añadir un comentario de 
código junto al número de estilo, para saber de cuál se trata. 

Podemos solucionar parcialmente el problema utilizando constantes, de modo que por cada estilo 
musical, crearemos una constante a la que asignaremos el número de un estilo. Veamos el Código 
fuente 302. 


Public Const ROCK As Integer = 1 
Public Const BLUES As Integer = 2 
Public Const NEWAGE As Integer = 3 
Public Const FUNKY As Integer = 4 

Public Sub SelecEstilo(ByVal liEstiloMusical As Integer) 
Select Case liEstiloMusical 
Case ROCK 

I 

Case BLUES 

I 

Case NEWAGE 

I 

Case FUNKY 

I 

End Select 
End Sub 


Código fuente 302 


Si bien el uso de constantes mejora la situación, su proliferación provocará la aparición de un nuevo 
problema: la organización y clasificación de todas las constantes del programa. 

Aquí es donde entran en escena las enumeraciones, ya que con ellas, podemos crear conjuntos de 
constantes relacionadas por una cualidad común, agrupando cada conjunto bajo un identificador 
genérico. 

Para crear una enumeración debemos utilizar las palabras clave Enum...End Enum, situando junto a 
Enum el nombre que vamos a dar a la enumeración, y a continuación, la lista de constantes que 
agrupará. Por lo tanto, si queremos reunir bajo una enumeración, las constantes de los estilos 
musicales, lo haremos del modo mostrado en el Código fuente 303. 
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Public Enum Músicas 
Rock 
Blues 
NewAge 
Funky 
End Enum 

Código ñiente 303 


Una enumeración debe tener un tipo de dato. Los tipos que podemos asignar a una enumeración deben 
ser los numéricos enteros soportados por el lenguaje que estemos utilizando. En el caso de VB.NET, 
los tipos de datos admisibles son Byte, Integer, Long y Short. En el caso de que no especifiquemos el 
tipo, tomará Integer por defecto. 

El hecho de tipificar una enumeración está relacionado con los valores que podemos asignar a cada 
una de las constantes que contiene. De ello se deduce, que sólo vamos a poder asignar valores 
numéricos a estas constantes. 

Cuando creamos una enumeración, si no asignamos valores a sus constantes, el entorno asigna 
automáticamente los valores, comenzando por cero y en incrementos de uno. Podemos en cualquier 
momento, asignar manualmente valores, no siendo obligatorio tener que asignar a todas las constantes. 
Cuando dejemos de asignar valores, el entorno seguirá asignando los valores utilizando como valor de 
continuación, el de la última constante asignada. Veamos unos ejemplos en el Código fuente 304. 


Public Enum Músicas As 
Rock 1 0 

Blues ' 1 

NewAge 1 2 

Funky 1 3 

End Enum 

Integer 

Public Enum DiasSemana 

As Integer 

Lunes 

1 0 

Martes 

Miércoles = 278 

1 1 

Jueves 

1 279 

Viernes 

1 280 

Sabado 

1 281 

Domingo 

End Enum 

1 282 


Código fuente 304 


Para utilizar una enumeración definida en nuestra aplicación, debemos declarar una variable, a la que 
daremos como tipo de dato el mismo de la enumeración. Una vez creada, la forma de asignar un valor 
es muy sencilla, ya que en cuanto escribamos el operador de asignación, el editor de código nos abrirá 
una lista con los posibles valores que admite la variable, que corresponderán, evidentemente, sólo a los 
de la enumeración. De esta forma, facilitamos enormemente la escritura de código, ya que se reducen 
las posibilidades de error en la asignación de valores a la variable enumerada. Ver Figura 125. 
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Sub 


Main() 

Din lxMusic 
lxmusic=| 


fls Músicas 


' Din 
•1 Mus¬ 


ís jMusicas.Blues 
0 Músicas.Funky 
CS Músicas. NewAge 
(S Músicas.Rock 


l’IU D J.UQD . 


Figura 125. Asignación de valor a una variable de tipo enumerado. 


El valor almacenado en una variable de enumeración corresponderá al número de la constante que 
hayamos seleccionado. Al declarar la variable, su valor inicial será cero. 

No obstante, la manipulación de una enumeración va mucho más allá de la asignación y recuperación 
simple de las constantes que componen la enumeración. Cuando declaramos una variable de una 
enumeración, el contenido real de dicha variable es un objeto de la clase Enum; por lo tanto, podemos 
utilizar los métodos de dicho objeto, para realizar diversas operaciones. Para tareas genéricas, la clase 
Enum también dispone de métodos compartidos que podremos ejecutar directamente, sin necesidad de 
crear una enumeración previa. El Código fuente 305 muestra algunos ejemplos. 


Module Modulel 

Public Enum Músicas As Integer 
Rock 
Blues 
NewAge 
Funky 
End Enum 

Sub Main() 

' creamos una variable de enumeración 
1 y le asignamos valor 
Dim lxMusic As Músicas 
lxMusic = Músicas.NewAge 

' el contenido de la variable es el número asignado 

1 a la constante 

Consolé.WriteLine(lxMusic) 

' el método ToStringO permite mostrar el nombre 
1 de la constante elegida de la lista que tiene 
1 la enumeración 

Consolé.WriteLine(lxMusic.ToString("G")) 

1 obtener los valores de las constantes de la enumeración 
' con GetValuesO, y los nombres con GetNamesO; estos métodos 
' son compartidos de la clase Enum, y reciben como parámetro una 
' variable de enumeración de la que debe obtenerse el tipo ejecutando 
' su método GetType(); devuelven un array con los datos pedidos 
Dim liValoresO As Integer 
Dim lsNombresO As String 
Dim liContador As Integer 

liValores = System.Enum.GetValues(lxMusic.GetType()) 
lsNombres = System.Enum.GetNames(lxMusic.GetType()) 

Consolé.WriteLine() 

Consolé.WriteLine("Valor - Nombre") 

' recorrer los arrays y mostrar su contenido 
For liContador = 0 To UBound(liValores) 

Consolé.WriteLine(liValores(liContador) & Space(7) & _ 
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lsNombres(liContador)) 

Next 

' comprobar si un nombre introducido por el 
' usuario está entre los nombres de las 
1 constantes en la enumeración 
Dim lsNombreMusica As String 

Consolé.WriteLine("Introducir nombre de constante") 
lsNombreMusica = Consolé.ReadLine() 

If System.Enum.IsDefined(lxMusic.GetType(), lsNombreMusica) Then 

Consolé.WriteLine("El tipo de música sí está en la enumeración") 

Else 

Consolé.WriteLine("El tipo de música no está en la enumeración") 
End If 

Consolé.ReadLine() 

End Sub 
End Module 

Código ñiente 305 
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Los tipos de datos también son objetos 

En la mayoría de los lenguajes, Visual Basic incluido, cuando necesitemos un proceso que implique la 
manipulación de cadenas de caracteres, fechas, cálculos aritméticos, etc., podemos recurrir a un 
conjunto de funciones de soporte existentes en el lenguaje, para obtener, por ejemplo, la longitud de 
una cadena, subcadenas, conversiones, formatos, fecha actual, partes de una fecha, etc. El Código 
fuente 306, muestra cómo obtenemos la longitud de una cadena con la función Len(). 


Dim IsCadena As String 
Dim liLongitud As Integer 
IsCadena = "esto es una prueba" 
liLongitud = Len(IsCadena) 1 18 

Código ñiente 306 


A pesar de disponer de este conjunto de funciones de utilidad, en el caso particular de VB.NET 
veremos en los siguientes apartados que su uso no será necesario, aunque se proporcionan por 
compatibilidad con anteriores versiones de este lenguaje. 

Dentro de la plataforma .NET Framework, todos los elementos del lenguaje se consideran tipos: los 
propios tipos de datos, clases, estructuras, enumeraciones, etc., componen lo que se denomina el CTS, 
o sistema común de tipos, una enorme jerarquía que parte del tipo base Object, y del que heredan el 
resto de tipos de la plataforma. Por dicho motivo, utilizaremos el término tipo para referimos tanto a 
clases, como estructuras, etc. 
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Al ser los tipos de datos, uno de los muchos tipos existentes dentro del esquema del CTS, podemos 
manipularlos de la forma tradicional o como si fueran objetos; aspecto este, que trataremos en el 
siguiente apartado. 


Manipulación de cadenas con la clase String 

La clase String nos provee de un amplio abanico de métodos para realizar las más diversas 
operaciones. Observemos el Código fuente 307, y comparemos con el fuente del ejemplo anterior. 


Dim IsCadena As String 
Dim liLongitud As Integer 
Dim IsCambiada As String 
IsCadena = "esto es una prueba" 
liLongitud = IsCadena.Length 1 18 

IsCambiada = IsCadena.ToUpper() 1 ESTO ES UNA PRUEBA 

Código ñiente 307 


Al ser una cadena, tanto un tipo de dato como un objeto de la clase String, podemos manipularlo como 
cualquier otro objeto de la jerarquía de la plataforma. En esta ocasión, hemos recuperado la longitud 
de la cadena mediante su propiedad Length, y la hemos convertido a mayúsculas ejecutando su 
método ToUpper(), asignando el resultado a otra variable. 

Para comprobar la versatilidad que ahora nos proporcionan los tipos de datos, cuando declaramos una 
variable String, podemos hacerlo en la forma tradicional de declaración, o al estilo OOP. Si 
consultamos la ayuda de .NET Framework, encontraremos una entrada con el título String Class, que 
describe este tipo como una clase más del sistema. Veamos el Código fuente 308. 


Sub Main() 

1 modo tradicional 
Dim lsCadl As String 
lsCadl = "mesa" 

1 instanciar un objeto String y asignar valor 
Dim loCad2 As New String("silla") 

1 declarar variable e instanciar un objeto 
' String en la misma línea 

Dim loCad3 As String = New String("coche") 

' declarar variable e instanciar un objeto 
1 String en la misma línea; el constructor 
1 utilizado en este caso requiere un array 
1 de objetos Char; observe el lector la forma 
1 de crear un array, asignando valores al 
' mismo tiempo 

Dim loCad4 As String = New String(New Char() {"t", "r", "e", "n"}) 

Consolé.WriteLine("lsCadl --> {0}", lsCadl) 

Consolé.WriteLine("loCad2 --> {0}", loCad2) 

Consolé.WriteLine("loCad3 --> {0}", loCad3) 

Consolé.WriteLine("loCad4 --> {0}", loCad4) 

Consolé.ReadLine() 

End Sub 
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Código fuente 308 


Una vez visto el fuente anterior, debemos realizar algunas aclaraciones. 

Podemos comprobar, utilizando el constructor de la clase String que recibe como parámetro un array 
Char, que el tipo String no pertenece puramente al conjunto de tipos primitivos de la plataforma, ya 
que internamente, el entorno manipula una cadena como un array de tipos Char; aunque para nuestra 
comodidad, este es un proceso transparente, que gestiona la plataforma por nosotros. 

En segundo lugar, y este también es un trabajo realizado transparentemente por el entorno, cada vez 
que creamos o instanciamos un tipo String, obtenemos lo que se denomina una cadena inalterable. 
Internamente, cuando realizamos una operación sobre la cadena: convertirla a mayúsculas, extraer una 
subcadena, etc., .NET crea una nueva instancia de String, asignándola a la misma variable. En 
apariencia realizamos modificaciones sobre la misma cadena, pero en realidad, cada operación genera 
nuevos objetos String. 

En este apartado realizaremos una revisión de los métodos de esta clase, a través de un conjunto de 
ejemplos, que a modo ilustrativo, nos permitan familiarizarnos con el modo en que se manejan 
cadenas en VB.NET. 

Debido al elevado número de miembros que contienen la mayoría de los tipos de la plataforma .NET, 
tanto clases, como estructuras, tipos de datos, etc.; y a que muchos de ellos disponen de versiones 
sobrecargadas; en la descripción de cada tipo haremos un repaso de sus miembros principales, 
remitiendo al lector a la documentación de referencia que sobre los tipos existe en la ayuda de la 
plataforma .NET, en donde encontrará toda la información detallada. 

Antes de comenzar a describir los métodos de esta clase, y puesto que una cadena es un array de tipos 
Char, es importante tener en cuenta que la primera posición corresponde al cero. Esta aclaración la 
realizamos fundamentalmente, de cara a los métodos que requieran el manejo de posiciones concretas 
de la cadena. 

• Trim( ), TrimStart( ), TrimEnd( ). Eliminan los espacios a ambos lados de una cadena, al 
comienzo o al final. Ver el Código fuente 309. 


Dim IsCadena As String 
IsCadena = " Hola .NET " 

Dim IsQuitar As String 

IsQuitar = IsCadena.TrimEnd() 1 " Hola .NET" 

IsQuitar = IsCadena.TrimStart() 1 "Hola .NET " 
IsQuitar = IsCadena.Trim() 1 "Hola .NET" 

Código fuente 309 


• PadLeft( ), PadRight( ). Rellenan una cadena por la izquierda o derecha utilizando un 
determinado carácter de relleno. Debemos especificar la longitud total de la cadena resultante. 
Como el carácter de relleno es un tipo Char, podemos especificar que se trata de este tipo, 
situando junto al carácter de relleno, la letra c. Ver el Código fuente 310. 


Dim IsCadena As String 
Dim IsRellena As String 
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IsCadena = "Hola" 

IsRellena = IsCadena.PadLeft(10) 1 " Hola" 

IsRellena = IsCadena.PadRight(10, "W"c) ' "HolaWWWWWW" 

Código fuente 310 

• Insert( ). Inserta en la cadena, una subcadena a partir de una posición determinada. Ver el 
Código fuente 311. 


Dim IsCadena As String 
Dim IsAgregar As String 
IsCadena = "Estamos programando" 

IsAgregar = IsCadena.Insert(2, "HOLA") 1 "EsHOLAtamos programando" 

Código fuente 311. 

• Remove( ). Elimina de la cadena un número determinado de caracteres, comenzando por una 
posición específica. Ver el Código fuente 312. 


Dim IsCadena As String 
Dim IsQuitar As String 
IsCadena = "Estamos programando" 

IsQuitar = IsCadena.Remove(5, 3) ' "Estamprogramando" 

Código fuente 312 

• Replace( ). Cambia dentro de la cadena, todas las ocurrencias de una subcadena por otra. Ver 
el Código fuente 313. 


Dim IsCadCompleta As String 

IsCadCompleta = "En el bosque se alza el castillo negro" 

Consolé.WriteLine("Replace --> {0 } ", IsCadCompleta.Replace("el", "la")) 

Código fuente 313 

• StartsWith( ), EndsWith( ). Comprueban que en la cadena exista una subcadena al principio 
o final respectivamente. Ver el Código fuente 314. 


Dim IsCadena As String 
IsCadena = "veinte" 

Consolé.WriteLine(IsCadena.StartsWith("ve")) 1 True 

Consolé.WriteLine(IsCadena.EndsWith("TE")) 1 False 

Código fuente 314 

• SubString( ). Obtiene una subcadena comenzando por una posición de la cadena, y 
extrayendo un número de caracteres. 
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• IndexOf(), LastIndexOf( ). Buscan una subcadena pasada como parámetro, comenzando por 
el principio y el fin respectivamente; y devuelven la posición de comienzo de dicha 
subcadena. Ver el Código fuente 315. 


Dim IsCadCompleta As String 

IsCadCompleta = "En el bosque se alza el castillo negro" 

Consolé.WriteLine("Substring --> {0 } ", IsCadCompleta.Substring(6, 5)) 1 

"bosqu" 

Consolé.WriteLine("IndexOf --> {0}", IsCadCompleta.IndexOf("el")) 1 3 

Consolé.WriteLine("LastlndexOf --> {o}", IsCadCompleta.LastlndexOf("el")) 
21 

Código fuente 315 


• ToUpper( ), ToLower( ). Cambian la cadena a mayúsculas y minúsculas respectivamente. 
Ver el Código fuente 316. 


Dim IsCadMayMin As String 

IsCadMayMin = "CamblaNDO A mayúsCUlAs Y MINÚSCULAS" 

Consolé.WriteLine("Pasar a may. --> {0}", IsCadMayMin.ToUpper()) 
Consolé.WriteLine("Pasar a min. --> {0} ", IsCadMayMin.ToLower()) 

Código fuente 316 


• Concat( ). Concatena dos cadenas pasadas como parámetro. Este es un método compartido de 
la clase String, por lo que no se requiere una instancia previa de la clase. El modo, sin 
embargo más rápido y sencillo para concatenar, sigue siendo el operador específico de 
concatenación: &. Ver el Código fuente 317. 


Dim IsConcatenar As String 

IsConcatenar = String.Concat("Hola ", "a todos") 

IsConcatenar = "ahora usamos" & " el operador para concatenar" 

Código fuente 317 


• Copy( ). Crea un nuevo obj eto String, aunque el medio más sencillo consiste en asignar una 
cadena a la variable. Ver el Código fuente 318. 


Dim IsCadA As String 
Dim IsCadB As String 
IsCadA = "uno" 

IsCadB = String.Copy("OTRO") 

Consolé.WriteLine("CadenaA --> {0}", IsCadA) 
Consolé.WriteLine("CadenaB --> {0}", IsCadB) 

Código fuente 318 
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• Compare( ). Este método compartido compara dos cadenas, y devuelve un valor menor de 
cero, si la primera cadena es menor que la segunda; cero si ambas cadenas son iguales; y 
mayor de cero, si la primera cadena es mayor. Ver el Código fuente 319. 


Dim IsComparal As String 
Dim lsCompara2 As String 
Dim liResultaComp As Integer 

Consolé.WriteLine("Introducir primera cadena a comparar") 
IsComparal = Consolé.ReadLine() 

Consolé.WriteLine("Introducir segunda cadena a comparar") 
lsCompara2 = Consolé.ReadLine() 

liResultaComp = String.Compare(IsComparal, lsCompara2) 
Select Case liResultaComp 
Case Is < 0 

Consolé.WriteLine("Primera cadena es menor") 

Case 0 

Consolé.WriteLine("Las cadenas son iguales") 

Case Is > 0 

Consolé.WriteLine("Primera cadena es mayor") 

End Select 

Código fuente 319 


• Equals( ). Compara el objeto con una cadena pasada como parámetro, y devuelve un valor 
lógico, que indica si las cadenas son o no iguales. Ver el Código fuente 320. 


Dim lsCadlnicial As String 
Dim IsCadComparar As String 
lsCadlnicial = "Prueba" 

Consolé.WriteLine("Introducir una cadena a comparar con la cadena inicial") 
IsCadComparar = Consolé.ReadLine() 

If lsCadlnicial.Equals(IsCadComparar) Then 

Consolé.WriteLine("Las cadenas son iguales") 

Else 

Consolé.WriteLine("Las cadenas son diferentes") 

End If 


Código fuente 320 


Conversión de tipos con la clase Convert 

Esta clase nos permite convertir el contenido de una variable perteneciente a un tipo base del sistema a 
otro tipo base. Su uso es muy sencillo a través de los métodos compartidos que proporciona. 

El Código fuente 321 convierte un número a cadena, y después esa cadena a un número utilizando los 
métodos de esta clase. 


Dim IsCadena As String 

IsCadena = Convert.ToString(150) 

1 "150" 

Dim liNum As Integer 
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liNum = Convert.ToInt32(IsCadena) 1 150 

Código fuente 321 


La estructura Char 

Mediante el uso de esta estructura podemos manejar tipos de datos simples de carácter. Los métodos 
compartidos de Char nos informarán del tipo de carácter que estamos manejando, además de poder 
realizar determinadas operaciones sobre dicho carácter. 

El Código fuente 322 muestra un ejemplo de uso de la estructura Char. Cada uno de los miembros de 
Char empleados se encuentra con un pequeño comentario aclaratorio de su funcionalidad. 


Public Sub Main() 

Dim lcCaracter As Char 
Dim IsResultado As String 
Dim lcConvertido As Char 


Consolé.WriteLine("Introducir un carácter o cero para salir") 
lcCaracter = Convert.ToChar(Consolé.ReadLine()) 

IsResultado = "" 
lcConvertido = Nothing 

1 IsDigitO indica si el carácter es un dígito decimal 
If Char.IsDigit(lcCaracter) Then 
IsResultado = "dígito" 

End If 

' IsLetterO indica si el carácter es una letra 
If Char.IsLetter(lcCaracter) Then 
IsResultado = "letra" 

End If 

1 IsWhiteSpace() indica si el carácter es un espacio en blanco 
If Char.IsWhiteSpace(lcCaracter) Then 
IsResultado = "espacio" 

End If 

1 IsPunctuation() indica si el carácter es un signo de puntuación 
If Char.IsPunctuation(lcCaracter) Then 
IsResultado &= "puntuación" 

End If 

' IsUpperO comprueba si el carácter está en mayúscula 
If Char.IsUpper(lcCaracter) Then 
IsResultado &= " mayúscula" 

1 ToLower() convierte el carácter a minúscula 
lcConvertido = Char.ToLower(lcCaracter) 

End If 

1 IsLowerO comprueba si el carácter está en minúscula 
If Char.IsLower(lcCaracter) Then 
IsResultado &= " minúscula" 

' ToUpper() convierte el carácter a mayúscula 
lcConvertido = Char.ToUpper(lcCaracter) 

End If 

1 mostramos una cadena con el tipo de carácter 
Consolé.WriteLine("El carácter es: {0 } " , IsResultado) 
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' si hemos convertido el carácter a mayúscula/minúscula, 

1 lo mostramos 

If Char.IsLetter(lcConvertido) Then 

Consolé.WriteLine("El carácter se ha convertido: {o}", lcConvertido) 
End If 

Consolé.WriteLine() 

' no salimos hasta que no se introduzca un 0 
Loop Until lcCaracter = "0"c 
End Sub 

Código ñiente 322 


Para asignar un valor de manera explícita a una variable, parámetro, etc., de tipo Char, es 
recomendable situar el carácter c junto a dicho valor. Veamos el Código fuente 323. 


Dim lcCaracter As Char 

1 ambas asignaciones son equivalentes, pero se recomienda la primera 
lcCaracter = "H"c 
lcCaracter = "H" 

Código ñiente 323 


En el anterior ejemplo este aspecto es opcional, sin embargo, si queremos asignar un valor Char a una 
variable tipificada como Object, debemos utilizar irremisiblemente el indicador c junto al valor, o de 
otro modo, el subtipo almacenado en la variable Object lo tomará como String en lugar de Char. El 
mejor modo de comprobarlo, es abriendo la ventana Locales en modo de depuración. Veamos un 
ejemplo en el Código fuente 324. 


Dim loValor As 

Obj ect 




loValor = "H" 

' objeto 

de 

subtipo 

String 

loValor = "H"c 

' objeto 

de 

subtipo 

Char 


Código Líente 324 


El tipo Date (fecha) 

Este tipo de dato, que utilizamos para trabajar con fechas, hace uso de la estructura DateTime, por lo 
que cuando tipificamos una variable como Date, los miembros que realmente manipulamos son los de 
un tipo DateTime. Consulte el lector, el apartado dedicado a la estructura DateTime para una mayor 
información. 


Operaciones aritméticas, la clase Math 

La clase Math contiene el conjunto de operaciones aritméticas más habituales. 

Gracias a que sus miembros son compartidos, es muy fácil su uso, ya que sólo debemos especificar el 
nombre de la clase, seguido del método a ejecutar. 
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El Código fuente 325 muestra algunos ejemplos utilizando métodos de la clase Math. Consulte el 
lector la documentación de .NET Framework para una explicación detallada sobre todos los miembros 
de esta clase. 


Sub Main() 

Dim liSigno As Integer 
Dim ldbRedondear As Double 

' Abs(): devuelve el valor absoluto del número 
' pasado como parámetro 

Consolé.WriteLine("Abs --> {0}", Math.Abs(-1867.79)) 

1 CeilingO : devuelve el número sin precisión decimal, 

' más grande o igual que el pasado como parámetro 

Consolé.WriteLine("Ceiling --> {0}", Math.Ceiling(256.7235)) 

' Floor(): devuelve el número sin precisión decimal, 

1 más pequeño o igual que el pasado como parámetro 
Consolé.WriteLine("Floor --> {0}", Math.Floor(256.7235)) 

' Sign(): devuelve un valor informando del signo del número 
' pasado como parámetro 

Consolé.WriteLine("Introducir número para averiguar su signo") 
liSigno = Consolé.ReadLine() 

Select Case Math.Sign(liSigno) 

Case -1 

Consolé.WriteLine("El número es negativo") 

Case 0 

Consolé.WriteLine("El número es cero") 

Case 1 

Consolé.WriteLine("El número es positivo") 

End Select 

1 Round(): redondea el número pasado como parámetro 
ldbRedondear = Math.Round(28.3215) 

Consolé.WriteLine("Redondear 28.3215 --> {o}", ldbRedondear) 
ldbRedondear = Math.Round(28.63215) 

Consolé.WriteLine("Redondear 28.63215 --> {o}", ldbRedondear) 

Consolé.ReadLine() 

End Sub 

Código ñiente 325 


Formateo de valores 

La utilización de un formato sobre un tipo de dato, nos permite mostrar su valor de un modo distinto a 
como se encuentra almacenado en la aplicación. Por ejemplo, el valor puro de una fecha no muestra el 
nombre del mes; sin embargo, aplicándole el formato adecuado, podemos hacer que se muestre la 
fecha en un modo extendido, con el nombre del mes, día de la semana, etc. 

Todos los tipos de datos del entorno que pueden mostrar información formateada, disponen del 
método ToString( ), al cuál podemos pasarle una cadena, con la especificación de formato que 
necesitemos. 

A continuación mostraremos unos ejemplos de formateo para fechas y números, ya que son los tipos 
de datos que con más frecuencia requieren ser formateado a lo largo del código de un programa. 
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Respecto a las fechas, el tipo Date, aparte del método ToString( ), tiene algunos miembros que 
devuelven un tipo de formato fijo. Veamos el Código fuente 326. 


Sub Main() 

Dim ldtFecha As Date 
ldtFecha = Date.NowO 

Consolé.WriteLine("ToLongDateString: {0}", ldtFecha.ToLongDateString()) 

Consolé.WriteLine("ToUniversalTime: {0}", ldtFecha.ToUniversalTime()) 
End Sub 

Código ñiente 326 


Empleando alguna de las sobrecargas del método ToString( ), podemos formatear en los modos 
mostrados seguidamente. 

La Tabla 25 muestra algunos caracteres asociados a los formatos predefinidos. 


Carácter de formato 

Tipo de formato 

d 

Fecha corta 

D 

Fecha larga 

G 

General (fecha corta, hora larga) 

g 

General (fecha y hora cortas) 

t 

Hora corta 

T 

Hora larga 

m, M 

Mes y día 

y, y 

Año y día 


Tabla 25. Algunos caracteres de fonnatos predefinidos. 


En el Código fuente 327 podemos ver un formateo de fechas con caracteres de formato. 


Sub Main() 

Dim ldtFecha As Date 

Dim lsListaFormatos() As String = {"d", "D", "g", "G", "t", "T", "m", "y"} 

Dim lsFormato As String 
ldtFecha = Date.NowO 

For Each lsFormato In lsListaFormatos 

Consolé.WriteLine("Formato: {0}, resultado: {1}", _ 
lsFormato, ldtFecha.ToString(lsFormato)) 

Next 
End Sub 

Código fuente 327 
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La Tabla 26 por otra parte, muestra algunos caracteres utilizados para crear patrones de formato 
personalizados, los cuales, se deben combinar entre sí, para componer el formato que necesitemos. 


Carácter para 
patrón de formato 

Resultado 

D 

Día del mes sin cero a la izquierda 

Dd 

Día del mes con cero a la 
izquierda 

Ddd 

Nombre del día abreviado 

Dddd 

Nombre del día completo 

M 

Número de mes sin cero a la 
izquierda 

MM 

Número de mes con cero a la 
izquierda 

MMM 

Nombre del mes abreviado 

MMMM 

Nombre del mes completo 

Yy 

Año en dos dígitos 

Yyyy 

Año en cuatro dígitos 

H 

Hora en formato 12 horas 

H 

Hora en formato 24 horas 

M 

Minutos sin cero a la izquierda 

Mm 

Minutos con cero a la izquierda 

S 

Segundos sin cero a la izquierda 

Ss 

Segundos con cero a la izquierda 

\literal 

Si queremos que un carácter que 
forma parte de los caracteres 
especiales de formato, se muestre 
de forma literal, debemos 
anteponerle este marcador 


Tabla 26. Caracteres para patrones de formato. 


El Código fuente 328 muestra algunos formatos personalizados, construidos a base de patrones de 
formato. 
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Sub Main() 

Dim ldtFecha As Date 
ldtFecha = Date.NowO 

Consolé.WriteLine(ldtFecha.ToString("ddd, dd-MMM/yyyy")) 

Consolé.WriteLine(ldtFecha.ToString("dddd, a dd \de MMMM ,en el año yyyy")) 
Consolé.WriteLine(ldtFecha.ToString("H:mra:s")) 

End Sub 

Código ñiente 328 


En cuanto a los números, si necesitamos aplicar un formato para este tipo de valor, podemos hacerlo 
mediante los caracteres mostrados en la Tabla 27. 


Carácter de formato 

Tipo de formato 

c,C 

Monetario 

d,D 

Decimal 

e,E 

Científico 

f,F 

Punto fijo 

&G 

General 

n,N 

Numérico 

r,R 

Redondeo en ambas 
direcciones. Asegura que 
las conversiones de número 
a cadena y viceversa, no 
alteren el valor de los 
números 

x,X 

Hexadecimal 


Tabla 27. Caracteres para formatos predefinidos. 


El Código fuente 329 muestra algunos formatos aplicados sobre un tipo numérico. 


Sub Main() 

Dim ldcMiNum As Decimal 

1 crear un array con caracteres de formato 

Dim lsFormatosO As String = {"c", "e", "f", "g", "n"} 

Dim lsNumFormateado As String 

ldcMiNum = 850.678 1 asignar valor al número 

' recorrer el array de formatos y aplicar cada 

1 uno de los formatos al número 

For Each lsNumFormateado In lsFormatos 

Consolé.WriteLine(ldcMiNum.ToString(lsNumFormateado)) 

Next 
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Consolé.ReadLine() 
End Sub 


Código fuente 329 


Eventos. ¿Qué es un evento? 

Un evento es un suceso o situación, que acontece en una ubicación de espacio y tiempo no predecible. 

Cuando una máquina deja de funcionar por una avería, o cuando una persona resbala y cae, estamos en 
ambos casos, ante ejemplos de eventos, ya que ocurren en momentos inesperados. 

Para que se desencadene un evento, se deben dar determinadas circunstancias, las cuales favorecen el 
que dicho evento se produzca. 


Eventos en VB.NET 

Ciñéndonos al ámbito de la programación, un evento es, dentro de un programa, una notificación 
lanzada por un objeto, que podrá ser contestada por aquellos otros objetos interesados en darle 
respuesta. 


Programación estrictamente procedural 

Antes de la llegada de los sistemas y lenguajes orientados a eventos, las aplicaciones ejecutaban su 
código en un orden fijo, ya que estaban basadas en un modelo construido exclusivamente a base de 
procedimientos: se realizaban llamadas a las rutinas de código en un orden predeterminado, y una vez 
terminada la ejecución de tales rutinas, finalizaba la aplicación. 


Un escenario de trabajo sin eventos 

Supongamos que nos encargan desarrollar una clase llamada Empleado, entre cuyos miembros 
tenemos la propiedad Sueldo. Uno de los requerimientos respecto a esta propiedad es que su valor no 
debe ser superior a 1000; por ello, en su procedimiento Property, realizamos una validación a tal 
efecto, emitiendo un mensaje cuando el sueldo que asignemos sea superior. Ver el Código fuente 330. 


Public Class Empleado 

1 variables de propiedad 
Private msNombre As String 
Private mdbSueldo As Double 

1 propiedad Nombre 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 
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' propiedad Sueldo 

Public Property Sueldo() As Double 
Get 

Return mdbSueldo 
End Get 

' al asignar un valor a la propiedad, 

' si el valor es superior a 1000 
1 mostrar un mensaje y no permitir la 
1 asignación del sueldo 
Set(ByVal Valué As Double) 

If Valué > 1000 Then 

Consolé.WriteLine("Asignación de sueldo incorrecta") 
Consolé.ReadLine() 

Else 

mdbSueldo = Valué 
End If 
End Set 
End Property 
End Class 

Código ñiente 330 


Una vez finalizado el desarrollo de la clase, la distribuimos a nuestro cliente. Posteriormente, un nuevo 
cliente nos requiere la clase, pero en esta ocasión, aunque necesita la validación sobre la propiedad 
Sueldo, no quiere que se muestre el mensaje al sobrepasar el sueldo asignado. 

Se nos plantea en este caso un problema, ya que si escribimos una nueva versión de la clase Empleado, 
tendremos el trabajo extra de mantener ambas. Para solucionarlo mediante una única versión de la 
clase recurriremos a los eventos. 


Programación basada en eventos 

La aparición de sistemas operativos basados en ventajas trajo consigo un nuevo esquema en el 
desarrollo de aplicaciones. En un programa que se ejecute dentro de un sistema como Windows se 
están produciendo constantemente eventos (sucesos), provocados por las acciones del usuario o por el 
propio sistema. Tan elevado es el número de eventos que se producen, que dar respuesta a todos, es 
decir, codificar todas aquellas situaciones que acontecen a lo largo de la ejecución de un programa, es 
algo impensable. 

Por tal motivo, la técnica seguida al escribir código orientado a eventos se basa en codificar sólo los 
eventos que nos interese tratar, ya que para el resto, será el propio sistema quien proporcione el 
comportamiento por defecto. 

En una aplicación Windows típica, todos los elementos que forman parte de la misma, es decir, la 
propia ventana y los controles contenidos en ella, lanzan eventos en respuesta a las acciones del 
usuario. Un ejemplo típico: al pulsar un control de tipo botón en la ventana se produce su evento clic; 
si queremos que el programa realice alguna acción al pulsar dicho botón, deberemos escribir código en 
el procedimiento de evento asociado, para dar respuesta a tal suceso. 
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Esquema básico de un sistema orientado a eventos 

Un sistema conducido por eventos basa su funcionamiento en dos pilares fundamentales: un emisor y 
un receptor de eventos. 

El primero genera y lanza el evento al sistema, mientras que el segundo, si está interesado en tratar el 
evento lanzado, lo captura y le da respuesta. Si un objeto receptor no necesita gestionar eventos, 
simplemente no lo obtiene. Ver Figura 126. 



Figura 126. Esquema de generación y captura de eventos. 


Tras una introducción conceptual, a continuación trataremos con más detalle cada uno de los 
elementos integrantes de la gestión de eventos. 


El emisor de eventos 

Un emisor de eventos, también denominado origen de eventos (event source o event sender ), es un 
objeto capacitado para generar y lanzar eventos al sistema, que puedan ser recuperados por otros 
objetos preparados para realizar su tratamiento. 

Para que un objeto pueda desencadenar eventos, en su clase debemos realizar dos tareas: 

• Declarar el propio evento usando la palabra clave Event, especificando si es necesario una 
lista de parámetros que acompañan al evento. 

• Lanzar el evento mediante la palabra clave RaiseEvent, seguida del nombre del evento a 
provocar. Si hemos declarado el evento con parámetros, deberemos añadir los valores para 
cada uno de los parámetros en el mismo orden en el que los hemos declarado. 

Situándonos pues ante el problema planteado por la clase Empleado en un apartado anterior, la 
solución que proponemos consistirá en generar desde la clase Empleado un evento cuando se produzca 
un fallo en la validación del sueldo. De esta manera, el código cliente que lo necesite, responderá al 
evento, y el que no lo precise, hará caso omiso del evento lanzado. 
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En primer lugar, declaramos en la zona de declaraciones de la clase el evento LimiteSueldo, que irá 
acompañado de un parámetro que nos informará del importe erróneo que se intentaba asignar a la 
propiedad. 

A continuación, en la propiedad Sueldo, cuando detectemos que el sueldo sobrepasa el valor 
permitido, en lugar de lanzar allí el mensaje a la consola, generaremos el evento LimiteSueldo, que 
podrá ser recuperado por el código cliente que haga uso de la clase, actuando como necesite en cada 
ocasión. Observe el lector, que al mismo tiempo que lanzamos el evento, le pasamos el importe del 
sueldo que se intentaba asignar. Veamos el Código fuente 331. 


Public Class Empleado 

1 declaramos el evento 

Public Event LimiteSueldo(ByVal ldblmporte As Double) 

Private msNombre As String 
Private mdbSueldo As Double 

Public Property Nombre() As String 
Get 

Return msNombre 
End Get 

Set(ByVal Valué As String) 
msNombre = Valué 
End Set 
End Property 

Public Property Sueldo() As Double 
Get 

Return mdbSueldo 
End Get 

Set(ByVal Valué As Double) 

' si el valor que intentamos asignar 
' al sueldo supera el permitido... 

If Valué > 1000 Then 

1 ...lanzamos el evento, y le pasamos 

' como parámetro informativo el valor 
' incorrecto que intentábamos asignar 
RaiseEvent LimiteSueldo(Valué) 

Else 

mdbSueldo = Valué 
End If 
End Set 
End Property 
End Class 

Código ñiente 331 


Con estas modificaciones sobre la clase Empleado, ya tenemos listo nuestro emisor de eventos. Queda 
ahora por completar la parte que captura los eventos lanzados por el emisor. 


El receptor de eventos 

Un receptor de eventos, también denominado manipulador de eventos (event receiver o event 
handler), es aquella parte del código cliente, que configuramos para que sea capaz de recibir los 
eventos generados por un objeto emisor. Para que ambos elementos en este canal de comunicación que 
es la transmisión de eventos puedan operar, es necesario conectarlos. 
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Conexión de un emisor de eventos con un manipulador de 
eventos 

Existen dos medios para comunicar un evento con un manipulador de eventos: 

• En tiempo de compilación, realizando un enlace estático entre la clase y el manipulador 
mediante las palabras clave WithEvents y Handles. Esta técnica tiene la ventaja de que 
permite escribir un código mucho más legible, en cuanto a la manipulación de eventos se 
refiere. 

• En tiempo de ejecución, realizando un enlace dinámico entre la clase y el manipulador 
mediante la palabra clave AddHandler. La ventaja en este caso, es que podemos asociar 
procedimientos manipuladores de evento dinámicamente durante el transcurso de la ejecución 
del programa. 


Enlace estático de eventos 

Este es el modo mas sencillo para implementar la conexión entre un evento y un procedimiento 
manipulador de evento. 

En primer lugar, declaramos una variable del tipo de objeto cuyos eventos queremos capturar, en la 
zona de declaraciones del módulo, clase, etc., utilizando la palabra clave WithEvents. Veamos el 
Código fuente 332. 


Module Modulel 

Private WithEvents moEmple As Empleado 


Código fuente 332 

A continuación, tenemos que escribir el procedimiento manipulador, que será invocado cada vez que 
se produzca el evento. Dicho procedimiento debe ser de tipo Sub, ya que un evento no puede devolver 
valores, por lo que no podremos utilizar un Function. También debemos finalizar su declaración con la 
palabra clave Elandles, seguida del nombre de la variable del objeto que hemos declarado en la zona de 
declaraciones, y el nombre del evento que el procedimiento va a tratar. En el Código fuente 333, el 
procedimiento moEmple_LimiteSueldo( ), será llamado cada vez que se produzca el evento 
LimiteSueldo en el objeto Empleado. 


Public Sub moEmple_LimiteSueldo(ByVal ldblmporte As Double) 
Handles moEmple.LimiteSueldo 

Consolé.WriteLine("Se ha sobrepasado para {0} el límite" & _ 
" establecido de sueldo", __ 
moEmple.Nombre) 

Consolé.WriteLine("El importe {0} no es válido", ldblmporte) 
Consolé.ReadLine() 

End Sub 

Código ñiente 333 
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El nombre utilizado para el procedimiento puede ser cualquiera, aunque en este caso hemos empleado 
la convención NombreObjetoNombreEvento simplemente para facilitar la lectura del código, pero 
podríamos haber empleado, por ejemplo, el que se muestra en el Código fuente 334. 


Public Sub Sobrepasado(ByVal ldblmporte As Double) 
Handles moEmple.LimiteSueldo 

I 

I 

End Sub 

Código fuente 334 


Un pequeño truco que tenemos en el editor de código de VS.NET, para facilitar la creación de los 
procedimientos manipuladores de evento, consiste en abrir la lista Nombre de clase y seleccionar el 
nombre de la variable que hemos declarado WithEvents. Ver Figura 127. 


Modulel.vb | TextFilel.txt* 


I^Modulel (EventoPrueba) 

3 

z/ 

Empleado (EventoPrueba) 

Module 1 (EventoPrueba) 

moEmple 


Figura 127. Seleccionar objeto declarado WithEvents. 


Seguidamente pasamos a la lista Nombre de método, y allí elegimos el nombre del evento que vamos a 
codificar. Ver Figura 128. 


<1 t> x 



Figura 128. Seleccionar el evento a codificar. 


Esto nos crea el procedimiento manipulador de evento vacío, en base a una convención de nombres 
predefinida en el IDE. Ver Código fuente 335. 


Public Sub moEmple_LimiteSueldo(ByVal ldblmporte As Double) Handles 
moEmple.LimiteSueldo 

End Sub 

Código fuente 335 


Como hemos escrito el manipulador de evento para el objeto Empleado en un módulo, vamos ahora a 
escribir un procedimiento Main(), instanciando en el mismo, un objeto de esta clase. Asignaremos en 
primer lugar, un valor correcto a la propiedad Sueldo, y a continuación un valor que provocará el 
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evento en la clase. Recomendamos al lector que ejecute el código línea a línea con el depurador, para 
observar el efecto cuando se produzca el evento. 


Sub Main() 

moEmple = New Empleado() 
moEmple.Nombre = "Juan" 

moEmple.Sueldo = 500 1 esta asignación no provoca el evento 

moEmple.Sueldo = 8000 ' esta sí provoca el evento 

End Sub 

Código ñiente 336 


Enlace dinámico de eventos 

Siendo un poco más complejo a nivel sintáctico que el enlace estático, el enlace dinámico de eventos a 
sus correspondientes manipuladores, tiene la ventaja de que nos permite asociar el mismo evento a 
diferentes procedimientos manipuladores de dicho evento, durante el transcurso de la ejecución del 
programa. 

Por lo tanto, en el módulo de código donde tenemos a Main( ), vamos a escribir dos procedimientos 
que asociaremos dinámicamente al evento que hemos creado en la clase Empleado. Ver Código fuente 
337. 


Module Modulel 


1 manipuladores de evento que conectaremos en tiempo de ejecución 
Public Sub SobreAsignacionSueldo(ByVal ldblmporte As Double) 

Consolé.WriteLine("Se intentó asignar a un empleado el sueldo {0}" & _ 
ControlChars.CrLf & "¡ESTO ES INCORRECTO!", ldblmporte) 

End Sub 

Public Sub Salariolncorrecto(ByVal ldblmporte As Double) 

Consolé.WriteLine("INFORME DE INCIDENCIAS") 

Consolé.WriteLine("======================") 

Consolé.WriteLine("Error al intentar asignar el salario {0} a un empleado", 
ldblmporte) 

End Sub 


End Module 

Código ñiente 337 


Como ventaja adicional, el objeto sobre el que vamos a manipular sus eventos podemos declararlo 
tanto a nivel local como en la zona de declaraciones, a diferencia del enlace estático, que nos obliga a 
declarar el objeto en la zona de declaraciones del módulo en el que vayamos a utilizarlo. 

Para establecer un enlace dinámico entre un evento y un manipulador, utilizaremos la instrucción 
AddHandler. Esta instrucción, recibe como primer parámetro el evento a conectar en el formato 
NombreObjeto.NombreEvento. Como segundo parámetro, pasaremos la dirección de entrada al 
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procedimiento que deberá ejecutar el evento, y que obtenemos a través de la instrucción AddressOf. El 
Código fuente 338, muestra el procedimiento Main(), en el que pedimos al usuario que introduzca un 
número, y según el valor obtenido, conectamos el evento con uno de los dos procedimientos 
manipuladores antes descritos. 


Module Modulel 


Sub Main() 

1 pedir un número al usuario para conectar a uno de los 
' dos procedimientos manipuladores de evento que hemos escrito 
Dim liTipoManip As Integer 

Consolé.WriteLine("Introduzca el número 162," & _ 

" para seleccionar el manipulador de evento a utilizar") 
liTipoManip = Consolé.ReadLine() 

' instanciar un objeto Empleado 
Dim loMiEmpleado As New Empleado() 

1 asignar un manejador de evento en tiempo de ejecución 
1 en función del número que el usuario ha introducido 
Select Case liTipoManip 
Case 1 

AddHandler loMiEmpleado.LimiteSueldo, AddressOf SobreAsignacionSueldo 
Case 2 

AddHandler loMiEmpleado.LimiteSueldo, AddressOf Salariolncorrecto 
End Select 

loMiEmpleado.Nombre = "ANTONIO" 

' esta asignación provoca el evento, 

1 ello ejecutará uno de los manipuladores 
' de evento que hemos conectado 
loMiEmpleado.Sueldo = 2500 
Consolé.ReadLine() 

End Sub 


End Module 

Código fuente 338 
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Aspectos básicos 

Como ya se explicó en un tema anterior, un array es aquel elemento del lenguaje que nos permite 
agrupar un conjunto de valores del mismo tipo, y acceder a ellos a través de una misma variable o 
identificador, especificando la posición o índice en donde se encuentra el dato a recuperar. El Código 
fuente 339, muestra las operaciones esenciales que podemos realizar con un array. Recomendamos al 
lector la creación de un nuevo proyecto en el IDE de tipo consola, para realizar las pruebas mostradas 
en los siguientes apartados. 


Sub Main() 

1 declarar un array de tipo String, 

1 el número de elementos es el indicado 
1 en la declaración más uno, porque la primera 
1 posición de un array es cero 
Dim sNombres(3) As String 

' asignar valores al array 
sNombres(O) = "Ana" 
sNombres(l) = "Pedro" 
sNombres(2) = "Antonio" 
sNombres(3) = "Laura" 

1 pasar un valor del array a una variable 
Dim sValor As String 
sValor = sNombres(2) 

1 mostrar en la consola el valor pasado a una variable 
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1 y un valor directamente desde el array 

Consolé.WriteLine("Valor de la variable sValor: 

{o} " , 

sValor) 

Consolé.WriteLine("Valor del array, posición 1: 
Consolé.ReadLine() 

{ 0 } " / 

sNombres(1)) 

End Sub 




Código fuente 339 


La clase Array 

Esta clase, perteneciente a la jerarquía de clases del sistema, es decir, incluida en el espacio de 
nombres System, proporciona a través de sus miembros, acceso orientado a obj eto para los arrays que 
manipulemos en nuestras aplicaciones. Esto quiere decir que los arrays, como sucede con otros 
elementos del lenguaje, son también objetos. 

Al igual que el resto de elementos del entorno, los arrays son tipos pertenecientes al sistema común de 
tipos de la plataforma o CTS, y se encuentran clasificados como tipos por referencia; esto quiere decir, 
que durante la ejecución, un array será gestionado en la zona de memoria conocida como montón o 
heap. 

Aunque podemos trabajar con los arrays como objetos, no será necesario instanciar un objeto de esta 
clase para poder disponer de un array. Al declarar una variable como array, implícitamente se instancia 
un objeto de la clase. En sucesivos apartados de este tema, haremos una descripción de los miembros 
de instancia y compartidos más importantes de la clase Array. 


Declaración 

Podemos declarar un array en la forma tradicional, explicada en temas anteriores, o bien utilizando la 
sintaxis orientada a objetos mediante la palabra clave New. El Código fuente 340 muestra algunos 
ejemplos de las diferentes formas disponibles. 


Sub Main() 

' formas de declaración de arrays 


1 1 ) 

' estableciendo el número de elementos 
Dim sNombres(2) As String 
1 2 ) 

' asignando valores al array al mismo tiempo que se declara, 

' la lista de valores debe ir encerrada entre llaves 
Dim sEstaciones() As String = {"Ana", "Pedro", "Luis"} 

1 3) 

1 indicando el tipo de dato pero no el número de elementos, 

' de este modo la variable todavía no es considerada un array 
1 ya que contiene una referencia a Nothing 
Dim iValoresO As Integer 
1 4) 

1 indicando el tipo de dato y estableciendo una 
1 lista vacía de elementos, 

1 a diferencia del caso anterior, la variable ahora sí 
1 es considerada un array aunque de longitud cero 
Dim iDatos() As Integer = {} 

1 5) 

1 instanciando el tipo de dato, estableciendo el número 
1 de elementos al instanciar, e indicando que se trata de un array 
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' al situar las llaves 

Dim iCantidades() As Integer = New Integer(20) {} 

1 6 ) 

' declarar primero la variable que contendrá el array, 

1 asignar valores al array al mismo tiempo que se instancia 
1 la lista de valores debe ir encerrada entre llaves 
Dim iNumerosO As Integer 

iNumeros = New IntegerO {10, 20, 30, 10, 50, 60, 10, 70, 80} 
End Sub 

Código ñiente 340 


Recomendamos al lector, que en estos ejemplos con arrays, utilice el depurador para ejecutar línea a 
línea el código, y abra la ventana Locales también del depurador, para ver en cada caso el contenido de 
los elementos del array. 


Asignación y obtención de valores 

Para asignar u obtener valores de los elementos de un array, emplearemos la variable que contiene el 
array haciendo referencia al índice o posición a manipular, o bien, puesto que un array es un objeto, 
utilizaremos los métodos SetValue( ) y GetValue( ), que asignan y obtienen respectivamente los 
valores del array. Veamos un ejemplo en el Código fuente 341. 


Sub Main() 

' asignación de valores a los elementos de un array 


Dim sNombres(4) As String 
1 directamente sobre la variable, 

' haciendo referencia al Indice 
sNombres(O) = "Juan" 
sNombres(l) = "Ana" 
sNombres(2) = "Luis" 

1 o con el método SetValueO, asignando el 
' valor en el primer parámetro y especificando 
' la posición en el segundo 
sNombres.SetValue("Elena", 3) 
sNombres.SetValue("Miguel", 4) 

' obtención de valores de un array 


Dim sValorA As String 
Dim sValorB As String 

sValorA = sNombres(2) ' directamente de la variable 

sValorB = sNombres.GetValue(3) 1 usando el meth GetValue 

Consolé.WriteLine("Contenido de las variables") 

Consolé.WriteLine("==========================") 

Consolé.WriteLine("ValorA: {0} -- ValorB: {1} ", sValorA, sValorB) 

Consolé.ReadLine() 

End Sub 

Código ñiente 341 
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Recorrer el contenido 

Para realizar un recorrido por los elementos de un array, disponemos de las funciones LBound( ) y 
UBoundf ), que devuelven el número de índice inferior y superior respectivamente del array que 
pasemos como parámetro. Debido a que en .NET todos los arrays deben comenzar obligatoriamente 
por el índice cero, no será necesario el uso de LBoundf), ya que esta es una función que proviene de 
versiones anteriores del lenguaje, en las que el primer índice podía ser un número distinto de cero. 

La orientación a objetos proporcionada por el entorno, pone a nuestra disposición el conjunto de 
características que comentamos seguidamente, y que harán prácticamente innecesario el uso de las 
funciones de manejo de arrays, a favor de una codificación más orientada a objeto. 

• Length. Esta propiedad de un objeto array devuelve el número de elementos que contiene. 

• GetLowerBound( ), GetUpperBound( ). Estos métodos de un objeto array, devuelven 
respectivamente, el número de índice inferior y superior de una dimensión del array. El 
resultado es el mismo que usando LBoundf ) y UBoundf ), pero desde una perspectiva 
orientada a objetos. 

• Enumeradores. Un objeto enumerador pertenece al interfaz lEnumerator, diseñado para 
realizar un recorrido o iteración a través de uno de los diferentes tipos de colección (arrays 
incluidos) existentes en .NET Framework. Mediante el método GetEnumerator() de un objeto 
array, obtenemos un objeto que implementa el interfaz lEnumerator, que sólo puede realizar 
labores de lectura sobre el array, en ningún caso de modificación. 

La estructura de control utilizada para recorrer el array, puede ser indistintamente un bucle For...Next, 
For Each...Next, o la novedosa técnica de los objetos enumeradores proporcionados por el objeto 
array. 

Como muestra de estas funcionalidades, el Código fuente 342 que vemos a continuación, contiene 
algunos ejemplos de cómo realizar una iteración sobre los elementos de un array. 


Sub Main() 

1 recorrer un array 


Dim sNombresO As String = {"Ana", "Luis", "Pablo"} 
Dim iContador As Integer 
Dim sünNombre As String 

' modo tradicional 


Consolé.WriteLine("Recorrido del array con LBound() y UBound()") 
For iContador = LBound(sNombres) To UBound(sNombres) 

Consolé.WriteLine("Posición: { 0 } - Valor: {1}", 
iContador, sNombres(iContador)) 

Next 

Consolé.WriteLine() 

1 con bucle For Each 

Consolé.WriteLine("Recorrido del array con bucle For Each") 

For Each sUnNombre In sNombres 

Consolé.WriteLine("Nombre actual: {0}", sUnNombre) 

Next 

Consolé.WriteLine() 

1 modo orientado a objeto 
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' usando la propiedad Length 

Consolé.WriteLine("Recorrido del array con propiedad Length") 

For iContador = 0 To (sNombres.Length - 1) 

Consolé.WriteLine("Posición: {0} - Valor: {l}", 

iContador, sNombres(iContador)) 

Next 

Consolé.WriteLine() 

' usando los métodos GetLowerBound() y GetUpperBound() 

Consolé.WriteLine("Recorrido del array con métodos GetLowerBound() y 
GetUpperBound()") 

For iContador = sNombres.GetLowerBound(0) To sNombres.GetUpperBound(0) 
Consolé.WriteLine("Posición: {0} - Valor: {l}", __ 
iContador, sNombres(iContador) ) 

Next 

Consolé.WriteLine() 

' recorrer con un enumerador 

Consolé.WriteLine("Recorrido del array con un enumerador") 

Dim sLetrasO As String = {"a", "b", "c", "d"} 

Dim oEnumerador As System.Collections.IEnumerator 
' obtener el enumerador del array 
oEnumerador = sLetras.GetEnumerator() 

1 con un enumerador no es necesario posicionarse 
' en el primer elemento ni calcular la cantidad 
' de elementos del array, sólo hemos de avanzar 
1 posiciones con MoveNext() y obtener el valor 
1 actual con Current 
While oEnumerador.MoveNext() 

Consolé.WriteLine("Valor actual: {o}", oEnumerador.Current) 

End While 

Consolé.ReadLine() 

End Sub 

Código ñiente 342 


Paso de arrays como parámetros, y devolución desde 
funciones 

Podemos pasar un array como parámetro a una rutina de código, teniendo en cuenta que los cambios 
que realicemos sobre el array en el procedimiento llamado, se mantendrán al volver el flujo de la 
ejecución al procedimiento llamador. 

Ello es debido a que los arrays son tipos por referencia del entorno, y por lo tanto, las variables del 
array que manejamos tanto desde el procedimiento llamador, como desde el procedimiento llamado, 
son en realidad punteros hacia una misma zona de memoria o referencia, la que contiene el array. 

En el ejemplo del Código fuente 343, comprobaremos que al pasar un array por valor, los cambios que 
realicemos sobre sus elementos se mantendrán al volver al procedimiento que hizo la llamada. 


Sub Main() 

Dim iValoresO As Integer = {10, 20, 30} 

' en ambos casos, se pasa una referencia del array, 
1 y al volver de las llamadas a los procedimientos, 
1 el array ha sido modificado en ambas llamadas, 

1 independientemente de que haya sido pasado por 
1 valor o referencia 
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ManipArrayVal(iValores) 

MostrarArray(iValores) 

ManipArrayRef(iValores) 

MostrarArray(iValores) 

Consolé.ReadLine() 

End Sub 

1 a este procedimiento le pasamos un array por valor 
Private Sub ManipArrayVal(ByVal iListaPorValor As Integer()) 

' cambiar elemento del array 
iListaPorValor(0) = 888 
End Sub 

1 a este procedimiento le pasamos un array por referencia 
Private Sub ManipArrayRef(ByRef iListaPorReferencia As Integer()) 
1 cambiar elemento del array 
iListaPorReferencia(2) = 457 
End Sub 

Private Sub MostrarArray(ByVal sMiListaO As Integer) 

1 muestra el array pasado como parámetro 
Dim iContador As Integer 

For iContador = 0 To sMiLista.Length - 1 

Consolé.WriteLine("Elemento: {0} - Valor: {l}", _ 

iContador, sMiLista(iContador)) 

Next 

Consolé.WriteLine() 

End Sub 

Código ñiente 343 


Clonación 

Para evitar el problema planteado en el apartado anterior, si necesitamos disponer de un array con las 
mismas características que uno ya existente, y que sea totalmente independiente del primero, 
utilizaremos el método Clone(). 

Con esto solucionaremos el problema de que al pasar un array como parámetro, las modificaciones 
que precisemos realizar, afecten al array original. Veamos un ejemplo en el Código fuente 344. 


Sub Main() 

1 crear un array 

Dim iValores() As Integer = {10, 20, 30} 
CambiaArray(iValores) 

1 mostrar el array original, 

' en este no se habrán producido cambios 
Consolé.WriteLine("Array original") 

MostrarArray(iValores) 

Consolé.ReadLine() 

End Sub 

Private Sub CambiaArray(ByVal iListaDatos As Integer()) 
1 crear un array clónico, 

1 cambiarle valores y mostrarlo 
Dim iListaClonada As Array 
iListaClonada = iListaDatos.Clone() 
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iListaClonada(0) = 

621 



iListaClonada(1) = 

900 



Consolé.WriteLine( 

"Array clónico") 



MostrarArray(iListaClonada) 


End 

Sub 



Private Sub MostrarArray(ByVal sMiListaO As 

Integer) 


Dim iContador As Integer 



For iContador = 0 

To sMiLista.Length - 1 



Consolé.WriteLine("Elemento: {0} - Valor: {1}", 


iContador, 

sMiLista(iContador)) 



Next 

Consolé.WriteLine( 

) 


End 

Sub 




Código fuente 344 


Copia 

Si intentamos copiar un array asignando la variable que contiene un array a otra, el resultado real serán 
dos variables que apuntan a la misma lista de valores, por lo que en definitiva sólo tendremos un array, 
al cual podremos acceder usando dos variables. Ello es debido a que como explicamos en un apartado 
anterior, los arrays son tipos por referencia que apuntan al mismo conjunto de valores. 

Podemos clonar el array, como se ha descrito en el apartado anterior, con lo que obtendremos un 
nuevo array, que será idéntico al original. 

O bien, podemos copiar el array utilizando los métodos CopyTo( ) y Copy( ) de la clase array. La 
diferencia con respecto a la clonación, consiste en que al copiar un array, el array destino ya debe estar 
creado con el número suficiente de elementos, puesto que los métodos de copia de la clase Array, lo 
que hacen es traspasar valores de los elementos del array origen al array destino, en función de los 
parámetros utilizados, copiaremos todos los elementos o un subconjunto. Veamos unos ejemplos en el 
Código fuente 345. 


Sub Main() 

Dim sColores(3) As String 
sColores(O) = "Azul" 
sColores(l) = "Verde" 
sColores(2) = "Rosa" 
sColores(3) = "Blanco" 

MostrarArray(sColores) 

' copiar usando el método CopyToO, 

' copiamos en el array sColorDestino, 

1 y comenzando por su posición 2, los 
1 valores del array sColores 
Dim sColorDestino(6) As String 
sColores.CopyTo(sColorDestino, 2) 

Consolé.WriteLine("Array sColorDestino") 
MostrarArray(sColorDestino) 

' copiar usando el método CopyO, 

' copiamos en el array sListaColores, 

1 a partir de su posición 2, 

1 2 elementos del array sColores, comenzando 

1 desde la posición 1 de sColores 

Dim sListaColores(5) As String 

Array.Copy(sColores, 1, sListaColores, 2, 2) 
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Consolé.WriteLine("Array sListaColores") 
MostrarArray(sListaColores) 

Consolé.ReadLine() 

End Sub 

Private Sub MostrarArray(ByVal sMiListaO As String) 

Dim iContador As Integer 

For iContador = 0 To sMiLista.Length - 1 

Consolé.WriteLine("Elemento: { 0 } - Valor: {l}", 

iContador, sMiLista(iContador)) 

Next 

Consolé.WriteLine() 

End Sub 

Código ñiente 345 


Inicialización de valores 

Para inicializar o eliminar los valores de los elementos de un array, utilizaremos el método Clear(), al 
que pasaremos el array a inicializar, el índice a partir del que comenzaremos, y el número de 
elementos. 

Los valores serán inicializados en función del tipo de dato del array: cadena vacía en arrays String; 
cero en arrays numéricos, etc. Veamos el Código fuente 346. 


Sub Main() 

1 array String, asignar valores e inicializar 

Dim sLetras(2) As String 

sLetras(0) = "a" 

sLetras(1) = "b" 

sLetras(2) = "c" 

' limpiar elementos en un array de tipo String, 

' los elementos limpiados quedan como cadena vacía 
Array.Clear(sLetras, 0, 1) 

Consolé.WriteLine("Array sLetras") 

MostrarArray(sLetras) 

1 array Integer, asignar valores e inicializar 

Dim iNumerosO As Integer = {100, 200, 300, 400, 500, 600} 

1 limpiar elementos en un array de tipo Integer, 

1 los elementos limpiados se ponen a 0 
Array.Clear(iNumeros, 1, 2) 

Consolé.WriteLine("Array iNumeros") 

MostrarArrayNum(iNumeros) 


1 array Object, asignar valores e inicializar 

Dim ovarios(6) As Object 

ovarios(0) = "Hola" 

ovarios(1) = 456 

ovarios(2) = 1200 

ovarios(3) = #12/25/2001# 

oVarios(4) = 900 

ovarios(5) = True 

oVarios(6) = "adelante" 

' al ser este un array de 
1 los elementos limpiados 
Array.Clear(oVarios, 3, 2) 

Consolé.WriteLine("Array oVarios" 
MostrarArrayObj(oVarios) 


tipo Object 
se establecen 


a Nothing 
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Consolé.ReadLine() 

End Sub 

1 recorrer un array de cadenas 

Private Sub MostrarArray(ByVal sMiListaO As String) 

Dim iContador As Integer 

For iContador = 0 To sMiLista.Length - 1 

Consolé.WriteLine("Elemento: {0} - Valor: {l}", 
iContador, sMiLista(iContador)) 

Next 

Consolé.WriteLine() 

End Sub 

1 recorrer un array de números 

Private Sub MostrarArrayNum(ByVal iMiListaO As Integer) 
Dim iContador As Integer 

For iContador = 0 To iMiLista.Length - 1 

Consolé.WriteLine("Elemento: {0} - Valor: {l}", 

iContador, iMiLista(iContador)) 

Next 

Consolé.WriteLine() 

End Sub 

1 recorrer un array de objetos 

Private Sub MostrarArrayObj(ByVal oMiListaO As Object) 
Dim iContador As Integer 

For iContador = 0 To oMiLista.Length - 1 

Consolé.WriteLine("Elemento: {0} - Valor: {l}", 
iContador, oMiLista(iContador)) 

Next 

Consolé.WriteLine() 

End Sub 

Código ñiente 346 


Ordenación 

Para ordenar un array disponemos del método Sort( ), que al estar sobrecargado, tiene varias 
implementaciones; la más básica de ellas es la que ordena la totalidad del array. También podemos 
ordenar una parte del array, indicando la posición inicial y cantidad de elementos a ordenar, etc. 

El método Reverse( ), invierte la posición de todos o parte de los elementos de un array. En este punto, 
debemos matizar que no se realiza un orden inverso de los elementos, sino que se cambian las 
posiciones de los mismos. Ver Código fuente 347. 


Sub Main() 

1 ordenar todo el array 

Dim sLetraslO As String = {"z", "a", "g", "m", "w", "i", "c", "b"} 

Array.Sort(sLetrasl) 

Consolé.WriteLine("Ordenar todos el array") 

MostrarArray(sLetrasl) 


1 ordenar parte del array 

Dim sLetras2() As String = {"z", "a", "g", "m", "w", "i", "c", "b"} 

Array.Sort(sLetras2, 4, 3) 

Consolé.WriteLine("Ordenar parte del array") 

MostrarArray(sLetras2) 


1 invertir valores dentro del array 
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Dim sLetras3() As String = {"z", "a", "g", "m", "w", "i", "c", "b"} 

Array.Reverse(sLetras3, 2, 4) 

Consolé.WriteLine("Invertir valores del array") 

MostrarArray(sLetras3) 

Consolé.ReadLine() 

End Sub 

Private Sub MostrarArray(ByVal sMiListaO As String) 

Dim iContador As Integer 

For iContador = 0 To sMiLista.Length - 1 

Consolé.WriteLine("Elemento: {0} - Valor: {1}", 
iContador, sMiLista(iContador)) 

Next 

Consolé.WriteLine() 

End Sub 

Código ñiente 347 


Búsqueda 

Los métodos IndexOf( ) y LastIndexOf( ) de la clase Array, nos permiten buscar un elemento en un 
array comenzando la búsqueda desde el principio o final respectivamente. 

Ya que ambos disponen de diferentes implementaciones al estar sobrecargados, consulte el lector la 
documentación de la plataforma. El Código fuente 348 muestra algunos ejemplos de uso. 


Sub Main() 

Dim sNombresO As String = {"Alberto", "Juan", "Ana", 

"Paco", "Miguel", "Ana"} 

1 buscar una cadena a partir del Indice 0 del array 
Consolé.WriteLine("Paco está en la posición {o}", 
Array.IndexOf(sNombres, "Paco")) 


1 buscar una cadena a partir del Indice 3 del array 
Consolé.WriteLine("Ana está en la posición {o}," & 

" comenzando a buscar desde Indice 3", 

Array.IndexOf(sNombres, "Ana", 3)) 


1 introducir un valor a buscar en el array, 

1 si no existe se devuelve -1 

Dim iPosicionBuscar As Integer 

Consolé.WriteLine("Introducir nombre a buscar") 
iPosicionBuscar = Array.IndexOf(sNombres, 

Consolé.ReadLine()) 


If iPosicionBuscar = -1 Then 

Consolé.WriteLine("El nombre no está en el array") 

Else 

Consolé.WriteLine("El nombre está en la posición • 
iPosicionBuscar) 

End If 

) 

{o} del array", 

1 buscar comenzando por la última posición 

Dim iNumeros() As Integer 

Dim iUltPosicionBuscar As Integer 

iNumeros = New IntegerO {10, 20, 30, 10, 50, 60, 10, 70, 80} 

Consolé.WriteLine("El 10 está en la posición {0} comenzando por el final", 

Array.LastlndexOf(iNumeros, 10)) 

Consolé.ReadLine() 
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End Sub 


Código fuente 348 


Arrays multidimensionales 

Para recorrer arrays multidimensionales, la clase Array dispone de varios miembros, algunos de los 
cuales describimos seguidamente. 

• Rank. Devuelve el número de dimensiones del array. 

• GetLength(Dimensión). Devuelve el número de elementos de la dimensión del array pasada 
como parámetro. 

• GetLowerBound(Dimension). Devuelve el número de índice inferior de la dimensión pasada 
como parámetro. 

• GetUpperBound(Dimension). Devuelve el número de índice superior de la dimensión pasada 
como parámetro. 

El Código fuente 349 muestra un ejemplo de manipulación de un array multidimensional mediante las 
propiedades y métodos mencionados. 


Sub Main() 

1 crear array multidimensional y rellenar de valores 
Dim iDatos(2, 4) As Integer 


iDatos 

(0, 

0) 

= 

1000 

iDatos 

(0, 

1) 

= 

2000 

iDatos 

(0, 

2) 

= 

3000 

iDatos 

(0, 

3) 

= 

4000 

iDatos 

(0, 

4) 

= 

5000 

iDatos 

(1, 

0) 

= 

25 

iDatos 

(1, 

1) 

= 

35 

iDatos 

(1, 

2) 

= 

45 

iDatos 

(1, 

3) 

= 

55 

iDatos 

(1, 

4) 

= 

65 

iDatos 

(2, 

0) 

= 

111 

iDatos 

(2, 

1) 

= 

222 

iDatos 

(2, 

2) 

= 

333 

iDatos 

(2, 

3) 

= 

444 

iDatos 

(2, 

4) 

= 

555 


Dim iContadorDimUno As Integer 
Dim iContadorDimDos As Integer 
Dim sTextoFila As String 

1 poner títulos de la fila y columnas del array a mostrar 
Consolé.WriteLine("Fila" & ControlChars.Tab & _ 

"Col 0" & ControlChars.Tab & "Col 1" & ControlChars.Tab & _ 

"Col 2" & ControlChars.Tab & "Col 3" & ControlChars.Tab & "Col 4") 

' el bucle externo recorre la primera dimensión 

For iContadorDimUno = iDatos.GetLowerBound(0) To iDatos.GetUpperBound(0) 
1 aquí obtenemos el número de fila 
1 que se está procesando 

sTextoFila = iContadorDimUno & ControlChars.Tab 
' este bucle recorre la segunda dimensión 
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For iContadorDimDos = iDatos.GetLowerBound(1) To iDatos.GetUpperBound(1) 
sTextoFila = sTextoFila & iDatos(iContadorDimUno, iContadorDimDos) & 
ControlChars.Tab 

Next 

1 mostrar en la consola el contenido 
Consolé.WriteLine(sTextoFila) 
sTextoFila = " " 

Next 

Consolé.WriteLine() 

Consolé.WriteLine("El número de dimensiones es: {o}", iDatos.Rank) 

Consolé.WriteLine("El número total de elementos es: {o}", iDatos.Length) 
Consolé.ReadLine() 

End Sub 

Código ñiente 349 
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Errores y excepciones 

Dentro del esquema de gestión de errores del entorno .NET Framework, encontramos las figuras del 
error y la excepción. Estos elementos son utilizados indistintamente en muchas ocasiones para hacer 
referencia genérica a los errores producidos; sin embargo, aunque complementarios, cada uno tiene su 
propia funcionalidad dentro del proceso de tratamiento de un error. 

• Error. Un error es un evento que se produce durante el funcionamiento de un programa, 
provocando una interrupción en su flujo de ejecución. Al producirse esta situación, el error 
genera un objeto excepción. 

• Excepción. Una excepción es un objeto generado por un error, que contiene información 
sobre las características del error que se ha producido. 


Manipuladores de excepciones 

Un manipulador de excepción es un bloque de código que proporciona una respuesta al error que se ha 
producido, y que se incluye en una estructura proporcionada por el lenguaje a tal efecto, es decir, para 
la captura de excepciones. 
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Tipos de tratamiento de error en VB.NET 

VB.NET proporciona dos tipos de tratamiento de error: estructurado y no estructurado. 

El primero se basa en los esquemas de captura de errores de lenguajes como C# y C++; gestionando 
los errores a través de excepciones, y una estructura de control que se encarga de atrapar aquellas 
excepciones que se produzcan. 

El segundo es un sistema heredado de versiones anteriores del lenguaje Visual Basic, y está basado en 
la detección y captura de errores a través de etiquetas de código, mediante saltos no estructurados en el 
flujo de la ejecución. 


Manipulación estructurada de errores 

En este tipo de tratamiento, cada vez que se produce un error, se genera un objeto de la clase 
Exception o alguna de sus derivadas, conteniendo la información del error ocurrido. La manera de 
capturar este tipo de objetos pasa por utilizar una estructura de control del lenguaje, proporcionada 
para esta finalidad. 


La estructura Try...End Try 

Esta estructura de control del lenguaje, proporciona el medio para definir un bloque de código sensible 
a errores, y los correspondientes manipuladores de excepciones, en función del tipo de error 
producido. El Código fuente 350 muestra su sintaxis. 


Try 


' código que puede provocar errores 


[Catch [Excepción [As TipoExcepcionA]] [When Expresión] 
' respuesta a error de tipo A 

I 

1 

[Exit Try] 


[Catch [Excepción [As TipoExcepcionN]] [When Expresión] 
' respuesta a error de tipo N 

I 

I 

[Exit Try] 


[Finally 

' código posterior al control de errores 

I 

I 

] 

End Try 


Código fuente 350 
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Analicemos con detalle los principales elementos de esta estructura. 

En primer lugar nos encontramos con su declaración mediante la palabra clave Try. Todo el código 
que escribimos a partir de dicha palabra clave, y hasta la primera sentencia Catch, es el código que 
definimos como sensible a errores, o dicho de otro modo, el bloque de instrucciones sobre las que 
deseamos que se active el control de errores cuando se produzca algún fallo en su ejecución. 

A continuación, establecemos cada uno de los manipuladores de excepción mediante la palabra clave 
Catch. Junto a esta palabra clave, situaremos de forma opcional, un identificador que contendrá el 
objeto con la excepción generada. Finalmente, y también de modo opcional, con la palabra clave 
When, especificaremos una condición para la captura del objeto de excepción. Podemos escribir uno o 
varios manipuladores Catch dentro de una estructura de control Try...End Try. 

Cada vez que se produzca un error, el flujo de la ejecución saltará a la sentencia Catch más acorde con 
el tipo de excepción generada por el error, siempre y cuando hayamos situado varios manipuladores de 
excepciones en el controlador de errores. 

Tal y como acaba de ver el lector en la sintaxis de la estructura Try...End Try, es posible utilizar Catch 
de un modo genérico, es decir, sin establecer qué tipo de excepción se ha producido. Este es el tipo de 
control de errores más sencillo que podemos implementar, aunque también el más limitado, ya que 
sólo podemos tener un manipulador de excepciones. Veamos un ejemplo en el Código fuente 351. 


Public Sub Main() 

Dim sValor As String 
Dim iNumero As Integer 

Try 

' comienza el control de errores 
Consolé.WriteLine("Introducir un número") 
sValor = Consolé.ReadLine() 

' si no hemos introducido un número... 

iNumero = sValor ' ...aquí se producirá un error... 

1 ...y no llegaremos a esta parte del código 

iNumero = iNumero + 1000 

Catch 

1 si se produce un error, se genera una excepción 
' que capturamos en este bloque de código 
1 manipulador de excepción, definido por Catch 
Consolé.WriteLine("Error al introducir el número" & _ 
ControlChars.CrLf & _ 

"El valor {o} es incorrecto", 
sValor) 

End Try 

1 resto del código del procedimiento 

I 

Consolé.ReadLine() 

End Sub 

Código ñiente 351 


Tanto si se produce un error como si no, la sentencia Finally de la estructura Try...End Try, nos 
permite escribir un bloque de código que será ejecutado al darse una condición de error, o bajo 
ejecución normal del procedimiento. 
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El Código fuente 352 muestra el mismo ejemplo anterior, pero introduciendo un bloque Finally. 
Pruebe el lector alternativamente, a forzar un error, y a ejecutar sin errores este fuente; en ambos casos 
verá que el bloque Finally es ejecutado. Para completar el ejemplo, tras la estructura Try...End Try se 
han escrito varias líneas de código potencialmente problemáticas; en el caso de que se produzca un 
error, la ejecución será cancelada, al no estar dichas líneas situadas en un controlador de errores. 


Public Sub Main() 

Dim sValor As String 
Dim iNumero As Integer 

Try 

' comienza el control de errores 
Consolé.WriteLine("Introducir un número") 
sValor = Consolé.ReadLine() 

1 si no hemos introducido un número... 

iNumero = sValor 1 ...aquí se producirá un error... 

1 ...y no llegaremos a esta parte del código 

iNumero = iNumero + 1000 

Catch 

1 si se produce un error, se genera una excepción 
1 que capturamos en este bloque de código 
' manipulador de excepción, definido por Catch 
Consolé.WriteLine("Error al introducir el número" & _ 

ControlChars.CrLf & _ 

"El valor {o} es incorrecto", __ 
sValor) 

Finally 

1 si se produce un error, después de Catch se ejecuta este bloque; 
1 si no se produce error, después de Try también se ejecuta 
Consolé.WriteLine("El controlador de errores ha finalizado") 

End Try 

1 resto del código del procedimiento 
Dim dtFecha As Date 

Consolé.WriteLine("Introducir una fecha") 

1 si ahora se produce un error, 

1 al no disponer de una estructura para controlarlo 
' se cancelará la ejecución 
dtFecha = Consolé.ReadLine() 

Consolé.WriteLine("La fecha es {0}", dtFecha) 

Consolé.ReadLine() 

End Sub 

Código fuente 352 


La clase Exception 

Como hemos explicado en anteriores apartados, cada vez que se produce un error, el entorno de 
ejecución genera una excepción con la información del error acaecido. 

Para facilitamos la tarea de manipulación de la excepción producida, en un controlador de excepciones 
obtenemos un objeto de la clase Exception, o de alguna de sus derivadas, de forma que, a través de sus 
miembros, podemos saber qué ha pasado. Entre las propiedades y métodos que podemos utilizar, se 
encuentran las siguientes. 

• Message. Descripción del error. 
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• Source. Nombre del objeto o aplicación que provocó el error. 

• StackTrace. Ruta o traza del código en la que se produjo el error. 

• ToString( ). Devuelve una cadena con información detallada del error. En esta cadena 
podemos encontrar también, los valores obtenidos de las propiedades anteriores; por lo que el 
uso de este método, en muchas ocasiones será el modo más recomendable para obtener los 
datos de la excepción. 

Podemos obtener el objeto de excepción creado a partir de un error, utilizando la sentencia Catch de la 
estructura Try. Para ello, a continuación de Catch, escribimos el nombre de un identificador, 
tipificándolo como Exception o alguno de los tipos de su jerarquía. 

El Código fuente 353 muestra la captura de la excepción en el ejemplo anterior, dentro de la sentencia 
Catch, pero en este caso utilizando un objeto Exception. El resto del código es igual que el anterior 
ejemplo. 


Try 

I 

I 

Catch oExcep As Exception 

' si se produce un error, se crea un objeto excepción 
1 que capturamos volcándolo a un identificador 
' de tipo Exception 

Consolé.WriteLine("Se produjo un error. Información de la excepción") 
Consolé.WriteLine("================================================") 

Consolé.WriteLine("Message: {0}", oExcep.Message) 

Consolé.WriteLine() 

Consolé.WriteLine("Source: {0} " , oExcep.Source) 

Consolé.WriteLine() 

Consolé.WriteLine("StackTrace: {0 }", oExcep.StackTrace) 

Consolé.WriteLine() 

Consolé.WriteLine(oExcep.ToString()) 

Finally 


End Try 


Código fuente 353 


El Código fuente 354 contiene una pequeña muestra de los valores obtenidos a partir de las 
propiedades Message, Source y StackTrace, tras la ejecución del fuente anterior. 


Message: Cast from String ('hola') to Integer is not valid. 

Source: Microsoft.VisualBasic 

StackTrace: at Microsoft.VisualBasic.Helpers.IntegerType.FromString(String Valué) 
at ErroresPru.Modulel.Main() in 

K: \CursoVBNET\Texto\tl6Errores\ErroresPru\Modulel .vb:line 12 

Código fuente 354 
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Exception representa la clase base en la jerarquía de tipos de excepción que se pueden producir dentro 
del entorno de ejecución. 

Partiendo de Exception, disponemos de un conjunto de clases derivadas, que nos permiten un 
tratamiento más particular del error producido, como ApplicationException, lOException, 
SystemException, etc. Cada una de ellas puede tener, además de los miembros generales de Exception, 
una serie de métodos y propiedades particulares de su tipo de excepción. Por ello, lo más conveniente 
será utilizar estas clases, a través de las que podremos averiguar más detalles sobre el problema 
producido. 


Captura de excepciones de diferente tipo en el mismo controlador 
de errores 

Cuando en el código de un controlador de errores puedan producirse errores de distintos tipos de 
excepción, debemos situar tantas sentencias Catch como excepciones queramos controlar. 

En el Código fuente 355, hasta el momento, hemos controlado los errores por conversión de tipos. 
Ahora vamos a añadir varias líneas más, que obtienen un valor, y lo asignan a un índice de un array. 
Dado que el índice a manipular lo pedimos al usuario, y es posible que dicho elemento no exista en el 
array, añadiremos un nuevo manipulador para este tipo de excepción, mediante la sentencia Catch 
correspondiente. 


Public Sub Main() 

Dim sValor As String 
Dim iNumero As Integer 

Dim sLetras() As String = {"a", "b", "c", "d"} 

Try 

1 comienza el control de errores 
Consolé.WriteLine("Introducir un número") 
sValor = Consolé.ReadLine() 

' si no hemos introducido un número... 

iNumero = sValor 1 ...aquí se producirá un error... 

' ...y no llegaremos a esta parte del código 

iNumero = iNumero + 1000 

1 introducir una letra y asignarla a una 
1 posición del array 
Dim sNuevaLetra As String 
Dim iPosicion As Integer 

Consolé.WriteLine("Introducir una letra") 
sNuevaLetra = Consolé.ReadLine() 

Consolé.WriteLine("Introducir posición del array para la letra") 
iPosicion = Consolé.ReadLine() 

1 si al asignar la letra al array no existe 
1 el Indice, se producirá un error 
sLetras(iPosicion) = sNuevaLetra 

Catch oExcep As System.InvalidCastException 

1 excepción producida por un error al intentar 
' realizar una conversión de tipos 
Consolé.WriteLine(oExcep.ToString()) 

Catch oExcep As System.IndexOutOfRangeException 
1 excepción producida por un error 
' al intentar usar un Indice inexistente 
1 de array, o Indice fuera de rango 
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Consolé.WriteLine(oExcep.ToString()) 

Finally 

' si se produce un error, después de Catch se ejecuta este bloque; 
' si no se produce error, después de Try también se ejecuta 
Consolé.WriteLine("El controlador de errores ha finalizado") 

End Try 

Consolé.ReadLine() 

End Sub 

Código ñiente 355 


Establecer una condición para un manipulador de excepciones 

Mediante la cláusula When, de la sentencia Catch, podemos situar una expresión que sirva como filtro 
o condición, para que dicho manipulador de excepciones se ejecute, en función de que el resultado de 
la expresión devuelva Verdadero o Falso. 

En el siguiente ejemplo, definimos un manipulador de excepciones, para cuando se produzcan errores 
de desbordamiento al asignar un valor a una variable de tipo Byte. Sin embargo, mediante When, 
establecemos que dicho manipulador sólo se ejecute cuando sea un determinado mes; lo que provoca, 
que en el caso de que no se cumpla tal condición, saltará el mensaje de excepción predeterminado del 
IDE. Veamos el Código fuente 356. 


Public Sub Main() 

Dim byMiNum As Byte 
Dim dtFHActual As Date 

' obtener la fecha actual 
dtFHActual = System.DateTime.Today() 

Try 

1 comienza el control de errores 
Consolé.WriteLine("Introducir un número") 

' si introducimos un número no incluido 
1 en el rango de Byte... 
byMiNum = Consolé.ReadLine() 

Catch oExcep As OverflowException When (dtFHActual.Month = 3) 

1 ...saltará este manipulador de excepciones, pero sólo 
1 cuando las excepciones de desbordamiento 
' se produzcan en el mes de Marzo 
Consolé.WriteLine("El número introducido " & _ 

"no se encuentra en el rango adecuado") 

Finally 

Consolé.WriteLine("El controlador de errores ha finalizado") 
End Try 

Consolé.ReadLine() 

End Sub 

Código ñiente 356 


Si queremos capturar también el resto de excepciones de desbordamiento, u otro tipo de excepciones, 
tenemos varias alternativas que describimos seguidamente. 
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• Quitar la condición de filtro al manipulador de excepciones actual. De este modo, 
capturaremos todas las excepciones de desbordamiento, pero no podremos filtrar por un mes 
determinado. 

• Añadir un nuevo manipulador a la estructura de control, para todas las excepciones de 
desbordamiento. En esta situación, si se produce un error de desbordamiento, y no estamos 
en el mes definido por el anterior manipulador, se ejecutará este nuevo manipulador. Ver el 
Código fuente 357. 


Catch oExcep As OverflowException When (dtFHActual.Month = 3) 
' ...saltará este manipulador de excepciones, pero sólo 
1 cuando las excepciones de desbordamiento 
1 se produzcan en el mes de Marzo 
Consolé.WriteLine("El número introducido " & _ 

"no se encuentra en el rango adecuado") 

Catch oExcep As OverflowException 

Consolé.WriteLine("Error de desbordamiento") 


Código fuente 357 


• Añadir un manipulador de excepciones genérico. Con esto evitaremos el mensaje de error 
no controlado, generado por el IDE. Si por ejemplo, además de las operaciones con el tipo 
Byte, nos encontramos manipulando fechas, podremos capturar todas las excepciones 
producidas. Veamos este caso en el Código fuente 358. 


Public Sub Main() 

Dim byMiNum As Byte 
Dim dtFecha As Date 
Dim dtFHActual As Date 

1 obtener la fecha actual 
dtFHActual = System.DateTime.Today() 

Try 

' comienza el control de errores 
Consolé.WriteLine("Introducir un número") 

1 si introducimos un número no incluido 
' en el rango de Byte, según el mes actual iremos 
1 a uno de los manipuladores de excepción existentes 
byMiNum = Consolé.ReadLine() 

' si introducimos un valor incorrecto para la fecha, 

1 iremos al controlador de errores genérico 
Consolé.WriteLine("Introducir una fecha") 
dtFecha = Consolé.ReadLine() 

Catch oExcep As OverflowException When (dtFHActual.Month = 3) 
1 manipulador de excepciones sólo 
' cuando las excepciones de desbordamiento 
' se produzcan en el mes de Marzo 
Consolé.WriteLine("El número introducido " & _ 

"no se encuentra en el rango adecuado") 

Catch oExcep As Exception 

1 manipulador genérico de excepciones 
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Consolé.WriteLine("Se ha producido un error") 

Finally 

Consolé.WriteLine("El controlador de errores ha finalizado") 

End Try 

Consolé.ReadLine() 

End Sub 

Código fuente 358 

El manipulador genérico de excepciones de este último ejemplo tiene un problema, ya que aunque las 
captura correctamente, no proporciona suficiente información, por lo que no podremos saber si el error 
se produjo por asignar un valor incorrecto a la variable Byte o a la fecha. 

Este problema tiene una fácil solución: al ser una excepción un objeto, y por lo tanto, un tipo del 
sistema, mediante su método GetTypef ) obtendremos el tipo de excepción producida, mostrándola en 
el mensaje del manipulador de excepciones. Ver el Código fuente 359. 


Catch oExcep As Exception 

1 manipulador genérico de excepciones 

Dim oTipo As Type 

oTipo = oExcep.GetType() 

Consolé.WriteLine("Se ha producido un error de tipo {0}", oTipo.Ñame) 


Código ñiente 359 


La influencia del orden de los manipuladores de excepciones 

El orden en el que situemos las sentencias Catch dentro de una estructura Try...End Try, es 
determinante, a la hora de que ciertas excepciones puedan ser capturadas. Por este motivo, al escribir 
un controlador de errores, se recomienda situar en primer lugar, los manipuladores más específicos, y 
dejar para el final, los más genéricos. 

En el ejemplo que muestra el Código fuente 360 se pueden producir dos tipos de excepción: por 
desbordamiento, y por acceso a índice no existente en un array. El problema que tenemos en dicha 
construcción de código, reside en que el manipulador de excepciones de desbordamiento nunca se 
ejecutará, ya que en primer lugar hemos situado uno más genérico que captura todo tipo de 
excepciones, incluidas las que se produzcan por desbordamiento. 


Public Sub Main() 

Dim byMiNum As Byte 

Dim avalores() As String = {"a", "b", "c"} 

Try 

' comienza el control de errores 
Consolé.WriteLine("Introducir un número") 

1 si no es un número Byte se produce error 
byMiNum = Consolé.ReadLine() 

1 esta linea produce error siempre, ya 
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' que no existe el Indice 5 en el array 
avalores(5) = "d" 

Catch oExcep As Exception 

' manipulador genérico de excepciones, 

1 captura todo tipo de excepciones, por lo que si 
1 también se produce una excepción OverflowException, 

1 se ejecutará este manipulador, por estar situado primero 
Consolé.WriteLine("Se ha producido un error") 

Catch oExcep As OverflowException 

' captura de errores de desbordamiento, 

' este manipulador nunca se ejecutará, por estar 
1 uno más genérico antes 

Consolé.WriteLine("El número introducido " & _ 

"no se encuentra en el rango adecuado") 

Finally 

Consolé.WriteLine("El controlador de errores ha finalizado") 
End Try 

Consolé.ReadLine() 

End Sub 

Código fuente 360 


En este caso que acabamos de ver, situaremos en primer lugar el manejador de excepciones de 
desbordamiento, y por último, el genérico. 


Forzar la salida de un controlador de errores mediante Exit Try 

A través de esta sentencia de la estructura Try...End Try, obligamos al flujo del programa a salir de la 
estructura de control de errores, desde cualquier punto de la misma en que nos encontremos. 

En el Código fuente 361, y retomando parte del código del anterior ejemplo, vemos como en el bloque 
de código del controlador de errores, forzamos la salida de la estructura sin haber finalizado de 
ejecutar todo el código propenso a errores. 


Try 

' comienza el control de errores 
Consolé.WriteLine("Introducir un número") 

' si no es un número Byte se produce error 
byMiNum = Consolé.ReadLine() 

' salimos de controlador de errores 
' sin finalizarlo 
Exit Try 

' esta línea produce error siempre, ya 
' que no existe el Indice 5 en el array 
avalores(5) = "d" 

Catch oExcep As OverflowException 


Catch oExcep As Exception 
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End Try 


Código fuente 361 


Generación manual de excepciones 

Además de las excepciones provocadas por errores del programa, VB.NET nos permite la notificación 
de problemas a través de la creación y envío manual de excepciones. 

Para ello, en aquel punto de código en el que determinemos que será necesario generar una excepción, 
instanciaremos un objeto de la clase Exception o alguna de sus clases heredadas, y lo notificaremos 
mediante la instrucción Throw, como muestra el ejemplo del Código fuente 362. 


Public Sub Main() 

Dim Valor As Integer 
Dim Resultado As Integer 

Try 

Consolé.WriteLine("Introducir un número") 

Valor = Consolé.ReadLine() 

Resultado = Calcular(Valor) 

Consolé.WriteLine("El resultado es: {0} " , Resultado) 

Catch oExcep As Exception 

1 si se produce un error y se genera una 
1 excepción en la función Calcular(), 

' el flujo de la ejecución saltará hasta 
' este manipulador de excepciones 
Consolé.WriteLine("Error") 

Consolé.WriteLine(oExcep.Message) 

End Try 

Consolé.ReadLine() 

End Sub 

Public Function Calcular(ByVal Dato As Integer) As Integer 
1 en esta rutina generamos la excepción si es necesario 
Dim Importe As Integer 
Dim oExcepcion As Exception 
Importe = Dato * 2 
If Importe > 100 Then 

1 si debido a los valores introducidos por el 
1 usuario, la variable tiene un valor no permitido 
1 crear una excepción 

oExcepcion = New Exception("El importe es incorrecto") 
1 lanzar la excepción 
Throw oExcepcion 
End If 

' si no se producen errores, devolver el valor calculado 
Return Importe 
End Function 

Código fuente 362 


Como vemos en el anterior ejemplo, el esquema de captura y tratamiento de excepciones no es 
obligatorio utilizarlo exclusivamente cuando se produzcan errores por un funcionamiento incorrecto 
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del programa, sino que podemos emplearlo también para tratar otras situaciones, por ejemplo, cuando 
el usuario de la aplicación no proporciona los valores adecuados a la misma. 


Manipulación no estructurada de errores 

En este tipo de gestión de errores, cada vez que se produce un error, consultaremos el objeto del 
sistema Err. Este objeto contiene, a través de sus propiedades, la información sobre el error producido. 

Para poder capturar los errores mediante esta técnica, utilizaremos la instrucción On Error, que nos 
permitirá seleccionar el controlador de errores a ejecutar. 


El objeto Err 

Este obj eto se crea automáticamente al iniciarse la aplicación, y proporciona al usuario información 
sobre los errores producidos en el transcurso de la aplicación. Tiene ámbito público, por lo que 
podremos usarlo desde cualquier punto del programa. 

Cuando se produzca un error, la propiedad Number de este objeto tendrá un valor mayor de cero, 
mientras que la propiedad Description, nos dará una información textual del error producido. 


On Error 

Esta instrucción activa o desactiva una rutina de manejo de errores. Tiene diversos modos de empleo, 
que describimos en los siguientes apartados. 


On Error Goto Etiqueta 

Activa una etiqueta de control de errores, que consiste en un bloque de código, al que se desviará el 
flujo del programa cuando se produzca un error. El Código fuente 363 muestra un ejemplo. 


Public Sub Main() 

On Error Goto ControlErrores 

Dim dtFecha As Date 
dtFecha = "valor incorrecto" 

Exit Sub 


1 etiqueta de control de errores 
ControlErrores: 

Consolé.WriteLine("Error: {0} - {1}", Err.Number, Err.Description) 
Consolé.ReadLine() 

End Sub 

Código ñiente 363 


Si queremos reintentar la ejecución de la línea que produjo el error, debemos utilizar en la etiqueta de 
control de errores la instrucción Resume, como muestra el Código fuente 364. 


356 






© Grupo EIDOS 


17. Manipulación de errores 


Public Sub Main() 

On Error Goto ControlErrores 

Dim dtFecha As Date 

Consolé.WriteLine("Introducir una fecha") 
dtFecha = Consolé.ReadLine() 

Consolé.WriteLine("Esta línea se ejecuta después del error") 
Consolé.ReadLine() 

Exit Sub 


1 etiqueta de control de errores 
ControlErrores: 

Consolé.WriteLine("Error: {0} - {1} ", Err.Number, Err.Description) 
Consolé.ReadLine() 

Resume 
End Sub 

Código ñiente 364 


De esta forma, en el ejemplo anterior, damos una nueva oportunidad al usuario, en el caso de que haya 
introducido una fecha incorrecta. 

Si no queremos volver a reintentar la línea del error, usaremos la instrucción Resume Next, que 
después de ejecutar la etiqueta de control de errores, seguirá la ejecución en la siguiente línea a la que 
provocó el error. También podemos utilizar el formato Resume Etiqueta, en donde Etiqueta representa 
a otra etiqueta de control, a la que saltará el código después de finalizar la ejecución de la actual. 


On Error Resume Next 

Esta variante de la instrucción On Error, hace que al producirse un error, la ejecución continúe con la 
siguiente línea de código, por lo que no utiliza etiquetas de control para desviar la ejecución. 

Debido a sus características, en este tipo de captura de errores, tras cada línea susceptible de provocar 
un error, debemos consultar los valores del objeto Err, para comprobar si existe un error, y actuar en 
consecuencia. 

En este tipo de situaciones, después de comprobar un error, debemos inicializar el objeto Err, 
llamando a su método Clear(). 

Veamos pues, un ejemplo de este tipo de gestión de errores en el Código fuente 365. 


Public Sub Main() 

On Error Resume Next 

Dim dtFecha As Date 

Consolé.WriteLine("Introducir una fecha") 
dtFecha = Consolé.ReadLine() 

If Err.Number > 0 Then 

Consolé.WriteLine("Error: {0} - {1}", Err.Number, Err.Description) 
Consolé.ReadLine() 

Err.Clear() 

End If 
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Consolé.WriteLine("Esta línea se ejecuta después de un posible error") 
Consolé.ReadLine() 

End Sub 

Código ñiente 365 


Creación de errores con el objeto Err 

El método Raise( ), del objeto Err, nos permite generar nuestros propios errores, que se comportarán 
igual que los errores del sistema. Veamos un ejemplo en el Código fuente 366. 


Public Sub Main() 

On Error Goto ControlErrores 

Dim iValor As Integer 

Consolé.WriteLine("Introducir un número") 
iValor = Consolé.ReadLine() 

If iValor > 500 Then 

Err.Raise(5100, , "El número debe ser menor de 500") 

End If 

Consolé.WriteLine("Esta linea se ejecuta después de un posible error") 
Consolé.ReadLine() 

Exit Sub 


' etiqueta de control de errores 
ControlErrores: 

Consolé.WriteLine("Error: {0} - {1}", Err.Number, Err.Description) 
Consolé.ReadLine() 

Resume Next 
End Sub 

Código ñiente 366 


On Error Goto 0 

Este uso de la instrucción On Error, desactiva el manejador de errores que hubiera activado hasta el 
momento; de modo, que a no ser que activemos otro manejador, los errores que se produzcan a partir 
de esa línea, provocarán un error fatal, cancelando la ejecución del programa. Ver el Código fuente 
367. 


Public Sub Main() 

On Error Goto ControlErrores 


Dim iValor As Integer 

Consolé.WriteLine("Introducir un número") 
iValor = Consolé.ReadLine() 


On Error Goto 0 

Consolé.WriteLine("Introducir otro número") 
iValor = Consolé.ReadLine() 
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Consolé.ReadLine() 
Exit Sub 


' etiqueta de control de errores 
ControlErrores: 

Consolé.WriteLine("Error: {0} - {1}", Err.Number, Err.Description) 
Consolé.ReadLine() 

Resume Next 
End Sub 

Código ñiente 367 
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¿Qué es un archivo? 

En los ejemplos realizados hasta el momento, cuando necesitamos guardar un conjunto de valores en 
algún lugar empleamos un array. Sin embargo, existen situaciones en las que debemos almacenar 
cantidades muy elevadas de datos, no constituyendo los arrays el elemento adecuado para este fin. 
Adicionalmente, el array es manipulado en memoria durante la ejecución del programa, por lo que su 
contenido se pierde al finalizar el mismo. Ante este tipo de casos debemos recurrir a los archivos. 

Un archivo es un medio de almacenamiento separado del programa, que nos permite guardar en el 
mismo una gran cantidad de información. 

Al tratarse de un soporte de almacenamiento permanente, podemos utilizarlo para grabar datos que 
puedan ser consultados en posteriores ejecuciones del programa que lo creó, o de otros programas que 
accedan a ese archivo. 

El uso de un archivo para guardar datos de forma externa es recomendable en procesos que no 
necesiten una organización muy compleja de los datos a manipular, ya que en tal caso, lo mejor sería 
utilizar un programa gestor de base de datos, que ya incoipora, de modo mucho más optimizado, los 
algoritmos y procesos específicos para el tratamiento de la información. 


System.IO, el punto de partida para el manejo de archivos 

Mediante VB.NET podemos hacer uso de las clases de la plataforma .NET situadas en el espacio de 
nombres System.IO, para todos los aspectos relacionados con el manejo de archivos. 
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Operaciones tales como lectura y escritura de información en archivos, y la gestión de los mismos en 
operaciones de borrado, copia, etc., entre directorios y unidades pueden ser llevadas a cabo a través de 
las clases contenidas en 10. Los propios directorios y unidades pueden ser igualmente tratados como 
objetos, lo que facilita enormemente el trabajo del programador. 

A lo largo de este tema realizaremos una descripción, con ejemplos de uso, de algunas de las clases 
contenidas en 10. Por lo que en todos los ejemplos utilizados aquí, tendremos que importar este 
espacio de nombres. 


Objetos Stream 

Un objeto Stream representa un flujo o corriente de datos, es decir, un conjunto de información 
guardada en formato de texto o binario, que podremos leer y escribir sobre un soporte físico, también 
denominado almacén de respaldo (backing store), en la plataforma .NET. 

Algunos tipos de Stream, para optimizar el flujo de transferencia de datos entre el objeto y su medio 
físico de almacenamiento, disponen de una característica denominada almacenamiento intermedio 
(buffering), que consiste en mantener un búfer intermedio con los datos. En el caso, por ejemplo, de 
tareas de escritura, todas las operaciones se realizarían en el búfer, mientras este dispusiera de 
capacidad. Una vez terminado el proceso de escritura, o cuando el búfer estuviera lleno, su contenido 
pasaría al archivo físico. Podemos también, alterar el comportamiento por defecto del búfer a través de 
diversas propiedades y métodos del objeto Stream correspondiente. 


La clase StreamWriter 

Un objeto StreamWriter realiza operaciones de escritura de texto sobre un archivo. 

El proceso típico de escritura de datos mediante un StreamWriter, comprende los siguientes pasos: 

• Instanciar un objeto de esta clase mediante alguno de los constructores disponibles. Aquí 
creamos un nuevo archivo para escribir datos sobre él, o abrimos uno existente. 

• Escritura de texto mediante los métodos WriteLine( ) y Write( ). El primero escribe el 
texto pasado como parámetro, y añade los caracteres especiales de retomo de carro y nueva 
línea. El segundo escribe el texto pasado y deja el puntero de escritura a partir del último 
carácter escrito, con lo que no produce un cambio automático de línea. Deberemos utilizar la 
propiedad NewLine para introducir manualmente un salto de línea. 

• Cierre del Stream con el método Close( ). Esta acción vuelca el contenido del búfer del 
objeto en el archivo. 

El Código fuente 368 muestra el proceso básico que acabamos de describir. 


Imports System.10 

Module Modulel 
Sub Main() 

Dim swEscritor As StreamWriter 

1 creamos un stream de escritura, y al mismo tiempo un 
1 nuevo archivo para escribir texto sobre él 
swEscritor = New StreamWriter(" \pruebas\NOTAS .txt") 


362 





© Grupo EIDOS 


18. Manipulación de archivos 


1 escribir líneas 

swEscritor.WriteLine("esta es la primera linea") 
swEscritor.WriteLine("segunda línea de texto") 

1 ahora escribimos texto pero sin provocar un salto de línea 
swEscritor.Write("Juan y Luna ") 
swEscritor.Write("van de paseo") 

swEscritor.Write(swEscritor.NewLine) 1 esto introduce el salto de línea 

swEscritor.WriteLine("con esta línea cerramos") 

' cerrar el stream y el archivo asociado 
swEscritor.Cióse() 

End Sub 
End Module 

Código ñiente 368 


En el caso de que el archivo sobre el que vamos a escribir ya exista, podemos utilizar, de los métodos 
constructores de StreamWriter, aquel que nos permite especificar en el segundo parámetro si vamos a 
añadir texto al archivo, o vamos a sobrescribir el texto previamente existente. Veamos un ejemplo en 
el Código fuente 369. 


1 abre el archivo y se sitúa al final del texto para añadir 
swEscritor = New StreamWriter(" \pruebas\NOTAS .txt", True) 

1 se elimina el contenido previo del archivo 

swEscritor = New StreamWriter(" \pruebas\NOTAS .txt", False) 

Código fuente 369 


Después de crear un objeto de este tipo, y escribir algunas líneas de texto sin cerrar el Stream, si 
abrimos su archivo de texto correspondiente (con el Bloc de Notas por ejemplo), nos encontraremos 
con que no hay texto dentro del archivo. Ello es debido a que todavía no se ha volcado el contenido 
del búfer del objeto sobre el archivo. Para forzar dicho volcado, deberemos llamar al método Flush(), 
que se encarga de traspasar el búfer al archivo asociado al Stream. Veamos el Código fuente 370. 


Dim swEscritor As StreamWriter 
1 creamos un stream de escritura 

swEscritor = New StreamWriter(" \pruebas\NOTAS .txt", False) 

1 escribir líneas 

swEscritor.WriteLine("la primera línea") 
swEscritor.WriteLine("un poco más de texto") 

1 si abrimos el archivo antes de la siguiente, estará vacío 
swEscritor.Flush() 

1 ahora el archivo ya contendrá texto 

1 cerrar el stream y el archivo asociado 
swEscritor.Cióse() 

Código ñiente 370 
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La clase StreamReader 

Un objeto StreamReader realiza operaciones de lectura de texto sobre un archivo. 

El proceso que debemos llevar a cabo para leer el contenido de un Stream de lectura es muy similar al 
de escritura: instanciar el objeto con uno de sus constructores, abriendo un archivo para leer; ejecutar 
alguno de los métodos de lectura del StreamReader, y cerrar el objeto con Close(). 

Entre los métodos de lectura de este objeto, tenemos ReadLine(), que devuelve una línea del archivo; 
y ReadToEnd( ), que devuelve el resto del contenido del archivo, desde el punto en el que se 
encontrara el Stream al realizar la última lectura. Veamos unos ejemplos en el Código fuente 371. 


Dim srLector As StreamReader = New StreamReader(" \pruebas\NOTAS .txt") 

Consolé.WriteLine("**Leer una primera línea**") 

Dim Linea As String 
Linea = srLector.ReadLine() 

Consolé.WriteLine("La línea contiene --> {0} ", Linea) 

Consolé.WriteLine() 

Consolé.WriteLine("**Ahora leemos el resto del archivo**") 

Dim Texto As String 

Texto = srLector.ReadToEnd() 

Consolé.WriteLine("El texto restante contiene --> {0}", Texto) 
srLector.Cióse () 

I *********************************************** 

1 leer línea a línea mediante un bucle 

Dim srLector As StreamReader = New StreamReaderC\pruebas\Datos.txt") 

Dim Linea As String 

Dim ContadorLin As Integer = 1 

Linea = srLector.ReadLine() 

Do While Not (Linea Is Nothing) 

Consolé.WriteLine("Línea: {0} - Contenido: {1}", ContadorLin, Linea) 

ContadorLin += 1 

Linea = srLector.ReadLine() 

Loop 

Código ñiente 371 


Otro de los métodos de lectura es ReadBlock( ), que recibe como parámetro un array de tipo Char, 
sobre el que se depositarán una cierta cantidad de caracteres leídos del archivo. En el segundo 
parámetro de este método indicamos la posición del array desde la que se comenzarán a guardar los 
caracteres, y en el tercer parámetro, el número de caracteres a leer. 

El método Read( ) utilizado sin parámetros, devuelve un valor numérico correspondiente al código del 
carácter que se acaba de leer. Cuando tras sucesivas operaciones de lectura lleguemos al final del 
Stream, este método devolverá -1. 

Para convertir de nuevo a carácter los valores que devuelve Read( ), debemos pasarlos a un array de 
tipo Byte, y después, utilizando un objeto ASCllEncoding, llamaremos a su método GetString(), que 
convertirá el array en una cadena. Veamos unos ejemplos de estos métodos en el Código fuente 372. 
Observe el lector, que para poder utilizar en el programa un objeto ASCllEnconding, debemos 
importar el espacio de nombres System.Text. 
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Imports System.10 
Imports System.Text 

Module Modulel 
Sub Main() 

' crear un Stream de lectura 

Dim srLector As StreamReader = New StreamReaderC\pruebas\NOTAS.txt") 
' obtener valores del Stream con el método ReadBlockO 


1 crear un array Char que contendrá los caracteres leídos 
Dim Caracteres(15) As Char 

' leemos 16 caracteres del archivo y los pasamos al array 
' comenzando a grabarlos a partir de su posición 0 
srLector.ReadBlock(Caracteres, 0, 16) 

1 pasamos el array de valores Char a String mediante 
' el constructor de la clase String que recibe como 
' parámetro un array Char 

Dim Partel As String = New String(Caracteres) 

Consolé.WriteLine("Resultado de la lectura con ReadBlockO") 
Consolé.WriteLine(Partel) 

Consolé.WriteLine() 

1 obtener valores del stream con el método Read() 


Dim Valor As Integer 
Dim Códigos() As Byte 

' vamos a ir volcando en un bucle los códigos de carácter 
' leidos desde el archivo a un array Byte 
Valor = srLector.Read() 

While (Valor <> -1) 1 cuando lleguemos al final, obtendremos -1 

If Códigos Is Nothing Then 
ReDim Códigos (0) 

Else 

ReDim Preserve Códigos(Códigos.GetUpperBound(0) + 1) 

End If 

Códigos(Códigos.GetUpperBound(0)) = Valor 
Valor = srLector.Read() 

End While 

Dim Codificador As New ASCIIEncoding() 

Dim Parte2 As String 

' con el objeto ASCIIEncoding, método GetStringO, 

' obtenemos una cadena, pasando como parámetro un array 
' de tipos Byte 

Parte2 = Codificador.GetString(Códigos) 

Consolé.WriteLine("Resultado de la lectura con ReadBlockO") 

Consolé.WriteLine(Parte2) 

Consolé.ReadLine() 

End Sub 
End Module 

Código fuente 372 

Finalmente, el método Peek(), al igual que Read(), devuelve el siguiente valor disponible del Stream, 
pero sin extraerlo del búfer, con lo que deberemos utilizar alguno de los métodos anteriormente 
descritos para realizar una lectura real. 
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La clase FileStream 

Realiza escritura y lectura de bytes sobre un archivo; en el caso de que el archivo no exista, lo 
crearíamos al mismo tiempo que instanciamos este objeto. 

Uno de los constructores de esta clase, nos permite especificar una cadena con la ruta del archivo a 
utilizar, mientras que en el segundo parámetro utilizaremos un valor de la enumeración FileMode, 
mediante la que indicamos el modo de trabajo sobre el archivo: añadir, abrir, crear, etc. 

Las propiedades CanRead, CanWrite y CanSeek, devuelven un valor lógico que nos informa de si en 
el objeto podemos realizar operaciones de lectura, escritura y desplazamiento por los bytes que 
contiene. 

Para escribir datos, disponemos de los siguientes métodos: 

• WriteByte( ). Escribe un byte en el archivo 

• Write( ). Escribe, de un array de bytes pasado como parámetro, una cantidad de elementos 
determinada, empezando por una de las posiciones de dicho array. 

Veamos en el Código fuente 373, un ejemplo de escritura con esta clase. 


1 escrituras con Filestream 
Dim oFileStream As Filestream 

oFileStream = New Filestream(" \pruebas\apuntes .dtt", FileMode.CreateNew) 
oFileStream.Write(New Byte() {15, 160, 88, 40, 67, 24, 37, 50, 2l}, 0, 6) 

oFileStream.WriteByte(75) 

Consolé.WriteLine("Opciones en el Filestream") 

Consolé.WriteLine("Podemos leer: {0}", Ilf(oFileStream.CanRead, "SI", "NO")) 

Consolé.WriteLine("Podemos escribir: {0}", Ilf(oFileStream.CanWrite, "SI", "NO")) 

Consolé.WriteLine("Podemos movernos: {0} " , Ilf(oFileStream.CanSeek, "SI", "NO")) 

oFileStream.Cióse() 
oFileStream = Nothing 

Código ñiente 373 


Para las operaciones de lectura tenemos los siguientes métodos: 

• ReadByte( ). Devuelve el valor sobre el que esté posicionado el objeto en ese momento. 

• Read( ). Traspasa valores a un array de bytes. 

Si queremos desplazarnos por los elementos del Stream, podemos utilizar el método Seek( ), pasando 
la cantidad de posiciones a movemos, y el punto desde el que queremos realizar dicho desplazamiento, 
mediante los valores de la enumeración SeekOrigin. 

Para averiguar el elemento del Stream en el que estamos situados, disponemos de la propiedad 
Position. 

Veamos algunos ejemplos de lectura sobre este tipo de objetos, en el Código fuente 374. 
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1 lectura con FileStream 
Dim oFileStream As FileStream 

oFileStream = New FileStream(" \pruebas\apuntes .dtt", FileMode.Open) 
Dim Valor As Byte 

Valor = oFileStream.ReadByte() 1 obtener un valor 

Consolé.WriteLine("Se ha leido el valor: {0}", Valor) 

Consolé.WriteLine("Nos desplazamos dos bytes en el stream") 
oFileStream.Seek(2, SeekOrigin.Begin) 

Valor = oFileStream.ReadByte() 

Consolé.WriteLine("Se ha leido el valor: {o}", Valor) 

Consolé.WriteLine("La posición actual del stream es: {o}", 
oFileStream.Position) 

1 leer varios valores, pasándolos a un array 
1 previamente dimensionado 
Dim VariosValores(3) As Byte 
oFileStream.Read(VariosValores, 0, 4) 

Consolé.WriteLine("Leer bloque de valores del stream") 

Dim Enumerador As IEnumerator 
Enumerador = VariosValores.GetEnumerator() 

While Enumerador.MoveNext 

Consolé.WriteLine("Valor: {0}", Enumerador.Current) 

End While 

Consolé.ReadLine() 

Código fuente 374 


Manipulación de archivos mediante las clases File y 
Filelnfo 

Las clases File y Filelnfo, proporcionan a través de sus miembros, el conjunto de operaciones 
comunes que podemos realizar con archivos en cuanto a su creación, copia, borrado, etc. 

La diferencia principal entre ambas radica en que los miembros de File son todos compartidos, con lo 
cual se facilita en gran medida su uso, al no tener que crear una instancia previa de la clase; mientras 
que en Filelnfo deberemos crear un objeto para poder utilizarla, ya que sus miembros son de in s tancia. 
Filelnfo dispone de algunos métodos adicionales que no se encuentran en File. 

Comenzando por la clase File, los métodos CreateText( ) y OpenText(), devuelven respectivamente 
un objeto StreamWriter y StreamReader, que utilizaremos para escribir y leer en el archivo pasado 
como parámetro a estos métodos. Con el método Exists( ), comprobamos si existe un determinado 
archivo. Veamos un ejemplo en el Código fuente 375. 


Dim sNombreFich As String 
Dim srLector As StreamReader 
Dim swEscritor As StreamWriter 

Consolé.WriteLine("Introducir ruta y archivo") 
sNombreFich = Consolé.ReadLine() 

If File.Exists(sNombreFich) Then 

srLector = File.OpenText(sNombreFich) 
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Consolé.WriteLine("El archivo contiene:{0}{1}", 
ControlChars.CrLf, srLector.ReadToEnd()) 
srLector.Cióse() 

Else 

swEscritor = File.CreateText(sNombreFich) 
swEscritor.WriteLine("este es") 
swEscritor.WriteLine("un nuevo archivo") 
swEscritor.Cióse() 

End If 

Consolé.WriteLine("Proceso finalizado") 

Consolé.ReadLine() 

Código fuente 375 


Para obtener los atributos de un archivo, disponemos del método GetAttributes( ), al que pasamos la 
ruta de un archivo, y devuelve un valor de la enumeración FileAttributes con la información sobre los 
atributos. En el caso de que al intentar acceder a un archivo, este no exista, se producirá una excepción 
de tipo FileNotFoundException, que podemos tratar en una estructura de manejo de excepciones. Ver 
el Código fuente 376. 


Dim sNombreFich As String 

Dim oAtributos As FileAttributes 

Try 

Consolé.WriteLine("Introducir ruta y archivo") 

sNombreFich = Consolé.ReadLine() 

oAtributos = File.GetAttributes(sNombreFich) 

Consolé.WriteLine("Atributos del archivo: {0}", oAtributos.ToString()) 

Catch oExcep As FileNotFoundException 

Consolé.WriteLine("Se ha producido un error {0}{l}", __ 

ControlChars.CrLf, oExcep.Message) 

Finally 

Consolé.WriteLine("Proceso finalizado") 

Consolé.ReadLine() 

End Try 

Código ñiente 376 


Además de esta excepción, el espacio de nombres 10 proporciona algunas clases de excepción 
adicionales para tratar otras diversas circunstancias de error. Consulte el lector la documentación de la 
plataforma referente a 10. 

Los métodos Copy( ), Move( ) y Delete( ), nos permiten copiar, mover y borrar respectivamente el 
nombre de archivo que pasemos como parámetro. El método GetCreationTime() nos devuelve un tipo 
Date con la fecha de creación del archivo. 

Por otro lado, si queremos obtener información adicional sobre un archivo, como su nombre, 
extensión, ruta, etc., instanciaremos un objeto Filelnfo( ), pasando al constructor una cadena con el 
nombre del archivo, y utilizaremos algunas de sus propiedades como Ñame, Extensión, 
DirectoryName. Veamos una muestra de todo esto en el Código fuente 377. 


Dim sNombreFich As String 
Dim iOperacion As Integer 
Dim oFInfo As Filelnfo 
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Consolé.WriteLine("Introducir ruta y archivo") 
sNombreFich = Consolé.ReadLine() 

Consolé.WriteLine("Fecha creación archivo: {0}", _ 

File.GetCreationTime(sNombreFich) ) 

oFInfo = New Filelnfo(sNombreFich) 

Consolé.WriteLine("Introducir el número de operación a realizar:") 

Consolé.WriteLine("1 - Copiar") 

Consolé.WriteLine("2 - Mover") 

Consolé.WriteLine("3 - Borrar") 
iOperacion = Consolé.ReadLine() 

Select Case iOperacion 
Case 1 

File.Copy(sNombreFich, "\pruebas\distinto" & oFInfo.Extensión) 

Case 2 

Consolé.WriteLine("Vamos a mover el archivo {o}", oFInfo.Name) 
Consolé.WriteLine("que está en la ruta {o}", oFInfo.DirectoryName) 
File.Move(sNombreFich, "\pruebas\" & oFInfo.Name) 

Consolé.WriteLine("Completado") 

Consolé.ReadLine() 

Case 3 

File.Delete(sNombreFich) 

End Select 

Código ñiente 377 


Manipulación de directorios mediante las clases Directory 
y Directorylnfo 

Las clases Directory y Directorylnfo contienen métodos y propiedades para crear, borrar, copiar y 
mover directorios, así como otra serie de tareas para su manejo y obtención de información. 

Al igual que sucedía con las clases del anterior apartado, los miembros de Directory son compartidos, 
mientras que los de Directorylnfo son de instancia; esta es su principal diferencia. 

En el ejemplo del Código fuente 378, el método Exists() comprueba la existencia de un directorio, y 
en caso afirmativo, obtenemos su última fecha de uso mediante GetLastAccessTime(). Seguidamente 
obtenemos un array String con su lista de archivos mediante GetFiles(), y creamos un subdirectorio de 
respaldo con CreateSubdirectory( ). En caso de que el directorio no exista, lo creamos con 
CreateDirectory(). 


Dim sNombreDir As String 

Dim Archivos() As String 

Dim Archivo As String 

Dim oDirlnfo As Directorylnfo 


Consolé.WriteLine("Introducir un nombre de 
sNombreDir = Consolé.ReadLine() 

directorio") 

If Directory.Exists(sNombreDir) Then 

Consolé.WriteLine("Fecha último acceso: 

: {0}", _ 
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Directory.GetLastAccessTime(sNombreDir)) 

Consolé.WriteLine("Archivos del directorio {o}", sNombreDir) 
Archivos = Directory.GetFiles(sNombreDir) 

For Each Archivo In Archivos 
Consolé.WriteLine(Archivo) 

Next 

oDirlnfo = New Directorylnfo(sNombreDir) 
oDirlnfo.CreateSubdirectory("bak") 

Else 

Directory.CreateDirectory(sNombreDir) 

Consolé.WriteLine("No existía el directorio, se acaba de crear") 
End If 

Código ñiente 378 


Para obtener el directorio actual de ejecución, disponemos del método GetCurrentDirectory( ), 
mientras que si queremos subir al directorio de nivel superior, tenemos el método GetParent( ), que 
devuelve un tipo Directorylnfo, con el que podemos, por ejemplo, mostrar su nombre completo 
mediante la propiedad FullName, y fecha de creación con CreationTime. Veamos el Código fuente 
379. 


Dim sNombreDir As String 
Dim oDirlnfo As Directorylnfo 

1 obtenemos el directorio actual de ejecución 
sNombreDir = Directory.GetCurrentDirectory() 

Consolé.WriteLine("Directorio actual: {0}", sNombreDir) 

1 obtenemos el directorio padre del actual, 

1 y mostramos información de dicha directorio 
oDirlnfo = Directory.GetParent(sNombreDir) 

Consolé.WriteLine("Directorio padre y fecha de creación {0}{1}{2}{3}", 
ControlChars.CrLf, oDirlnfo.FullName, __ 

ControlChars.CrLf, oDirlnfo.CreationTime) 

Código ñiente 379 


En el siguiente ejemplo, el método GetDirectories() devuelve un array de cadenas, con los nombres de 
los subdirectorios que se encuentran dentro del directorio pasado como parámetro a este método. A 
continuación, mediante el método Move( ), cambiamos de lugar un directorio; con Delete( ) borramos 
otro de los directorios. Observe el lector, cómo utilizando de forma combinada CType( ), 
Directory.GetFiles( ), y un elemento del array que contiene la lista de directorios, creamos una 
expresión que nos permite averiguar, si en un determinado directorio hay o no archivos. Ver el Código 
fuente 380. 


Dim sNombreDir As String 
Dim oDirlnfo As Directorylnfo 
Dim sDirectorios () As String 
Dim sDirectorio As String 

Consolé.WriteLine("Introducir un nombre de directorio") 
sNombreDir = Consolé.ReadLine() 

1 obtener directorios del directorio especificado 
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sDirectorios = Directory.GetDirectories(sNombreDir) 

1 comprobar que el directorio contiene a su vez 
1 varios directorios; en caso negativo, finalizar 
If Not (sDirectorios.Length > 1) Then 

Consolé.WriteLine("El directorio especificado debe contener al menos dos 
subdirectorios") 

Consolé.ReadLine() 

Exit Sub 
End If 

1 mostrar nombres de directorios 
For Each sDirectorio In sDirectorios 
Consolé.WriteLine(sDirectorio) 

Next 

1 mover uno de los directorios a otra ubicación del disco actual 
Directory.Move(sDirectorios(0), " \temp\BIS ") 

1 borrar otro de los directorios; 

1 el directorio a borrar debe estar vacío; 

1 comprobar con la siguiente expresión si dicho 
1 directorio contiene o no archivos 

If (CType(Directory.GetFiles(sDirectorios(1)), String()).Length() > 0) Then 

Consolé.WriteLine("No se puede borrar el directorio: {0} - " & _ 
"contiene archivos", sDirectorios (1)) 

Else 

Directory.Delete(sDirectorios(1)) 

End If 

Consolé.WriteLine("Completado") 

Consolé.ReadLine() 

Código fuente 380 


La clase Path 

Esta clase nos proporciona un conjunto de campos y métodos compartidos, para la obtención de 
información y manipulación de rutas de archivos. El Código fuente 381 muestra un ejemplo en el que, 
una vez introducido un directorio, se muestra la información de cada uno de sus archivos, en lo que 
respecta a los métodos de esta clase. 


Consolé.WriteLine("Introducir nombre de directorio") 

Dim sDirectorio As String 
sDirectorio = Consolé.ReadLine() 

Dim sArchivos() As String 

sArchivos = Directory.GetFiles(sDirectorio) 

Consolé.WriteLine("Datos sobre archivos obtenidos del objeto Path") 

Consolé.WriteLine("========== = ======= = ========= = = = = = = = = = = = = = = = = = =") 

Dim sArchivo As String 

For Each sArchivo In sArchivos 

Consolé.WriteLine("GetDirectoryName() {0}", Path.GetDirectoryName(sArchivo)) 

Consolé.WriteLine("GetExtension() {0}", Path.GetExtension(sArchivo)) 

Consolé.WriteLine("GetFileName() {0 }", Path.GetFileName(sArchivo)) 

Consolé.WriteLine("GetFileNameWithoutExtension() {0}", 

Path.GetFileNameWithoutExtension(sArchivo)) 

Consolé.WriteLine("GetFullPath() {0 }", Path.GetFullPath(sArchivo)) 

Consolé.WriteLine() 

Next 


371 







Fundamentos de programación con Visual Basic .NET 


© Grupo EIDOS 


Consolé.ReadLine() 


Código fuente 381 
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Interfaces de ventana. Formularios y controles 

Un formulario Windows representa la conocida ventana, que se utiliza en las aplicaciones ejecutadas 
bajo alguno de los sistemas operativos de la familia Windows: Windows95/98, NT, ME, 2000, XP, 
etc. 

Un control, por otra parte, es aquel elemento situado dentro de una ventana o formulario, y que 
permite al usuario de la aplicación Windows, interactuar con la misma, para introducir datos o 
recuperar información. 

Dentro de .NET, las ventanas clásicas Windows, reciben la denominación de Windows Forms, o 
WinForms. En este texto nos referiremos a ellas como formularios Windows, o simplemente, 
formularios. 


System. Windows.F orms 

Este espacio de nombres contiene todos los tipos del entorno: clases, estructuras, enumeraciones, 
interfaces, etc., a través de los cuales podremos desarrollar aplicaciones compuestas por formularios 
Windows, junto a los correspondientes controles que permiten al usuario la interacción con el 
programa. 

La clase Form es la principal de este espacio de nombres, y representa a una ventana Windows de una 
aplicación. 
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Hola Mundo desde un formulario Windows 

Comenzaremos nuestro periplo por los formularios, creando la versión Windows del clásico programa 
Hola Mundo. Esto nos permitirá realizar una primera toma de contacto con el diseñador de formularios 
del IDE, la ventana de propiedades del mismo, y los controles, que nos permitirán proporcionar 
funcionalidad añadida al formulario. 

Iniciaremos por lo tanto Visual Studio .NET, y crearemos un nuevo proyecto de tipo Visual Basic, con 
plantilla Aplicación para Windows, al que daremos el nombre HolaMundoWin, como se muestra en la 
Figura 129. 



Figura 129. Creación en VB.NET de un proyecto de tipo Aplicación para Windows. 


Formularios 

Un proyecto de tipo Windows contiene por defecto un formulario, cuyo diseñador podemos ver en una 
de las pestañas de la ventana principal del IDE, como vemos en la Figura 130. 

Un formulario es, al igual que la gran mayoría de elementos en el entorno de .NET, un objeto, y como 
tal, la forma de manipularlo pasa por asignar y obtener valores de sus propiedades, y por la ejecución 
de sus métodos. 

Para acceder a las propiedades de un formulario en modo de diseño, seleccionaremos la opción de 
menú del IDE Ver + Ventana Propiedades, que nos mostrará la ventana de la Figura 131. 
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Figura 130. Diseñador de formulario de VS.NET. 



Figura 131. Ventana Propiedades de VS.NET, mostrando las propiedades de un formulario. 
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Para asignar valores a las propiedades a través de esta ventana, simplemente haremos clic sobre la 
propiedad que necesitemos, escribiendo su valor en la columna derecha. 

La primera propiedad a mencionar, y la más importante para cualquier objeto es Ñame, que contiene el 
nombre del objeto que luego nos va a permitir manipularlo en el código del programa. El diseñador 
asigna nombres por defecto a los formularios y controles que agreguemos a la aplicación. En este caso, 
el nombre que ha asignado al formulario es Forrnl. Podemos modificar estos nombres por otros que 
sean más significativos para el programador, aunque de momento vamos a mantener los nombres por 
defecto. 

Otra de las propiedades más comunes es Text, que en el caso del formulario nos permite asignar una 
cadena con el título para el mismo. 

En lo que respecta al diseñador del formulario, podemos modificar su tamaño haciendo clic sobre las 
guías de redimensión que tiene en los bordes de la plantilla de diseño, y arrastrando hasta dar el 
tamaño deseado. Las guías de color blanco son las que permiten modificar el tamaño, mientras que las 
de color gris, son fijas. Por ejemplo, si vamos a incluir muchos controles, o un título largo, y el tamaño 
que tiene por defecto no es lo bastante grande, lo ampliaremos hasta quedar como muestra la Figura 
132 . 


Forml.vb [Diseño] 1 '' | < t> ^ 



También podemos conseguir el efecto de cambio en el tamaño del formulario desde la ventana de 
propiedades del IDE, asignando valores a la propiedad Size. Para ello, haremos clic en el icono de 
expansión de esta propiedad y daremos valores a sus elementos X e Y. 

Igualmente haremos con la propiedad Location, de modo que cambiaremos las coordenadas iniciales 
en las que el formulario será visualizado. Para que el formulario se visualice en estas coordenadas que 
establecemos manualmente, debemos también asignar a la propiedad StartPosition el valor Manual. 
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Controles 

Los controles constituyen aquellos elementos que insertamos dentro de un formulario, y permiten al 
mismo interactuar con el usuario, tales como botones de pulsación, cajas de texto, casillas de 
verificación, cajas con listas de valores, etc.; al igual que un formulario, son objetos con sus 
propiedades y métodos, y se manejan de la misma forma. 

Para añadir un control a un formulario, en primer lugar seleccionaremos la opción de menú Ver + 
Cuadro de herramientas , que abrirá la ventana que contiene los controles que podemos insertar en el 
formulario. Ver la Figura 133. 



Figura 133. Cuadro de herramientas de VB.NET. 


Para añadir un control a un formulario haremos clic en el icono del control, arrastrando y dibujando el 
mismo sobre la superficie del diseñador del formulario, hasta dar el tamaño requerido. 


Label 

Un control Label o Etiqueta es un control estático. Eso quiere decir que no realiza ninguna interacción 
con el usuario, puesto que sólo muestra un texto informativo. 

Dibujaremos sobre el formulario un control de este tipo del modo descrito anteriormente, al que el 
diseñador le asignará el nombre Labell. A continuación, con el control seleccionado, pasaremos a la 
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ventana de propiedades. En la propiedad Text escribiremos Hola Mundo, lo cual se reflejará también 
en el control dentro del diseñador de formularios. Ver Figura 134. 

Página de inicio Forml.vb [Diseño] | 



Figura 134. Control Label añadido a un formulario. 


Ya que el tamaño de Label 1 con respecto al formulario es insignificante, aumentaremos dicho tamaño 
haciendo clic sobre el control; esto mostrará alrededor del mismo una serie de recuadros o guías de 
redimensión. Flaciendo clic sobre cualquiera de ellas y arrastrando el ratón, variaremos el tamaño del 
Label hasta conseguir uno más adecuado. 

También podemos hacer clic sobre el control y arrastrarlo, cambiando la posición en la que lo 
habíamos dibujado originalmente. 

Ahora debemos cambiar el tamaño del tipo de letra, y para ello emplearemos la propiedad Font o 
Fuente del control. Pasaremos pues a la ventana de propiedades, observando como esta propiedad 
muestra en su valor el nombre del fuente actual. Ver Figura 135. 


Figura 135. Ventana de propiedades con Font seleccionada. 


FlatStyle 


Fnrpr nlnr 


Standard 

| Microsoft Sans Serif; 8,25pt 

WWB C nnhrnlTpyh 


Placiendo clic sobre Font, aparecerá un botón con puntos suspensivos, que al ser pulsado, abrirá el 
cuadro de diálogo estándar del sistema para selección de tipos de letra. Ver Figura 136 

Cambiando el tamaño del tipo de letra a 20 y pulsando Aceptar, aumentará la letra del Label que 
tenemos en el formulario. 
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Figura 136. Selección del tipo de fuente para un control del formulario. 


Ejecutando la aplicación 

En este punto del desarrollo, daremos por concluida la aplicación. Ahora debemos ejecutarla para 
comprobar que todo funciona correctamente. El modo de ejecución desde el IDE es igual que el 
seguido para una aplicación de consola. La Figura 137 muestra el resultado. 


F Programa de prueba 


Hola Mundo 


Figura 137. La aplicación Fióla Mundo, para fonnulario Windows, en ejecución. 


Este formulario podemos manipularlo de igual forma que cualquier otro de los que existan en el 
sistema: redimensionarlo, maximizarlo, minimizarlo, etc. 

Como ventaja añadida, observe el lector que para crear este programa no hemos necesitado escribir ni 
una sola línea de código, todo ha sido realizado a través de los diseñadores y demás elementos del 

IDE. 
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El código del formulario 

Cuando creamos un formulario desde Visual Studio .NET del modo en que acabamos de mostrar, el 
diseñador del formulario genera por nosotros el código del formulario, que consiste en una clase que 
hereda de la clase base Form. El nombre de la clase es el mismo que hemos asignado a la propiedad 
Ñame en la ventana de propiedades del diseñador, en este caso Forml. El código es grabado en un 
archivo con la extensión .VB, que tiene el nombre del formulario: FORM1.VB, en este ejemplo. 

Para ver dicho código, tan sólo tenemos que hacer clic derecho sobre el formulario, y en el menú 
contextual seleccionar Ver código, lo que abrirá la ventana del editor de código del IDE, mostrando el 
código de nuestro formulario. 

Parte del código estará oculto por un elemento Región con el nombre Windows Form Designer 
generated code; para verlo al completo debemos hacer clic en el icono de expansión de esta región. 

Es posible modificar este código generado por el diseñador, para completar aquellos aspectos que 
necesitemos del formulario. Sin embargo, no debemos modificar el método lnitializeComponent(), ya 
que se trata de un método directamente relacionado con el aspecto visual del formulario, y su edición 
podría dejar el formulario inservible. 

El Código fuente 382 muestra el código de la clase Forml, correspondiente al formulario de nuestro 
proyecto, que ha generado el diseñador. 


Public Class Forml 

Inherits System.Windows.Forms.Form 

#Region " Windows Form Designer generated code " 

Public Sub New() 

MyBase.New() 

'This cali is required by the Windows Form Designer. 

InitializeComponent() 

'Add any initialization after the InitializeComponent() cali 
End Sub 

'Form overrides dispose to clean up the component list. 

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 

If disposing Then 

If Not (components Is Nothing) Then 
components.Dispose() 

End If 
End If 

MyBase.Dispose(disposing) 

End Sub 

Friend WithEvents Labell As System.Windows.Forms.Label 
'Required by the Windows Form Designer 

Private components As System.ComponentModel.Container 

'NOTE: The following procedure is required by the Windows Form Designer 
'It can be modified using the Windows Form Designer. 

'Do not modify it using the code editor. 

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() 
Me.Labell = New System.Windows.Forms.Label() 

Me.SuspendLayout() 
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'Labell 

I 

Me.Labell.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, 
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, 
Byte)) 

Me.Labell.Location = New System.Drawing.Point(37, 38) 

Me.Labell.Ñame = "Labell" 

Me.Labell.Size = New System.Drawing.Size(168, 44) 

Me.Labell.Tablndex = 0 

Me.Labell.Text = "Hola Mundo" 

I 

'Forml 

I 

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) 

Me.ClientSize = New System.Drawing.Size(244, 163) 

Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Labell}) 

Me.Location = New System.Drawing.Point(100, 100) 

Me.Ñame = "Forml" 

Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual 
Me.Text = "Programa de prueba" 

Me.ResumeLayout(False) 

End Sub 

#End Región 

End Class 

Código ñiente 382 


Cambiando el nombre del formulario 

Cambiar el nombre de un formulario es algo tan sencillo como acceder a la ventana de propiedades de 
su diseñador, y asignar un nuevo nombre en la propiedad Ñame. Por ejemplo, asignemos frmPrueba 
como nuevo nombre al formulario de nuestro ejemplo. Ver Figura 138. 


Propiedades 


9 x 


| frmPrueba System. Windows. Forms.Form 

Üí 


z i 


US 


0 

(DataBindings) 


0 

(DynamicProperties) 



(Ñame) 

frmPrueba 


AcceptButton 

(none) 


AccessibleDescription 



Figura 138. Cambio del nombre del formulario. 


Sin embargo, esta acción tiene más implicaciones de las que en un principio pudiera parecer, ya que si 
intentamos ahora ejecutar el programa, se producirá un error. 

Esto es debido a que al crear el proyecto, el objeto inicial del mismo era el formulario, pero tenía 
como nombre Forml; al cambiar el nombre a frmPrueba, el IDE no puede encontrarlo y genera el 
error. 
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Para solucionarlo, debemos abrir la ventana de propiedades del proyecto, y seleccionar, en la lista 
desplegable Objeto inicial, el nombre del nuevo formulario: frmPrueba. Ver Figura 139. 



Figura 139. Cambio del objeto inicial del proyecto. 


Al volver a ejecutar, el programa funcionará correctamente mostrando el formulario. 

Un detalle a destacar consiste en que cuando cambiamos el nombre del formulario, el archivo que 
contiene el código fuente del mismo no cambia, ya que como sabemos, un archivo de código puede 
albergar más de una clase o cualquier otro tipo de elemento de la aplicación: enumeración, módulo, 
estructura, etc. Por ese motivo, el archivo que contiene el formulario seguirá con el nombre 
Fonnl.VB, independientemente del nombre que le hayamos dado al formulario. 


Iniciar el formulario desde Main() 

En todos los ejemplos con formularios Windows realizados hasta el momento, la aplicación comienza 
su ejecución directamente por el formulario, lo cual resulta una comodidad, ya que no tenemos que 
preocupamos de configurar el arranque del programa, a no ser que cambiemos el nombre del 
formulario, como hemos visto en los últimos apartados. 

A pesar de todo, este es un escenario, que en muchas ocasiones no será válido, puesto que 
necesitaremos realizar alguna tarea antes de la visualización del formulario, como cambiar ciertas 
propiedades del mismo. 

Podemos crear un procedimiento Main( ), bien en un módulo o en una clase, y configurarlo como 
punto de entrada de la aplicación, codificando en dicho procedimiento la instanciación del formulario 
a mostrar. A continuación describimos los pasos necesarios. 
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Partiendo del hecho de que ya tenemos un proyecto Windows creado, el correspondiente a Hola 
Mundo, volveremos a abrir la ventana de propiedades de dicho proyecto y cambiaremos el objeto 
inicial a Sub Main. Ver Figura 140. 


Páginas de propiedades de HolaMundoWín 


Configuración: |Ñ/D 3 Plataforma: 


Propiedades comunes 
i y General 
Generar 
Importaciones 
Ruta de acceso de refe 
Nombre seguro 
Valores predeterminada 
Pl Propiedades de configurad 


Nombre del ensamblado: 
| HolaMundoWin 


I¡po de resultado: Objeto inicial: 

| Aplicación para Windows ^ | 


ub Main 


Espacio de nombres de la raíz: 
| HolaMundoWin 


Sub Main 



Administrador de configu 


z] 


Figura 140. Configurar un proyecto Windows para comenzar por un procedimiento Main(). 


Después añadimos un módulo al proyecto, empleando la opción de menú Proyecto + Agregar módulo, 
de VS.NET, y en dicho módulo codificamos un procedimiento Main( ) que se encargue de instanciar 
un objeto del formulario. Si escribimos algo parecido a lo que muestra el Código fuente 383, el 
programa, en efecto, se iniciará y creará el formulario, pero inmediatamente lo cerrará. 


Module Entrada 

Public Sub Main() 

' instanciar un objeto de la clase del formulario 
Dim frmVentana As New frmPruebaO 
frmVentana.Text = "probando desde código" 
frmVentana.Show() 

End Sub 
End Module 

Código fuente 383 


El código anterior, aunque válido, tiene un problema: un formulario, al tratarse de una ventana 
Windows, necesita lo que se denomina un bucle de proceso de mensajes, que le permita detectar los 
mensajes que le envía el sistema operativo, y actuar en consecuencia. 

En .NET, para conseguir que un formulario disponga de un bucle de mensajes, debemos utilizar la 
clase Application, entre cuyos miembros compartidos, se encuentra el método Run( ). Cuando a dicho 
método, le pasemos un objeto formulario como parámetro, creará un bucle de mensajes para dicho 
formulario y lo mantendrá en ejecución hasta que el usuario de la aplicación lo cierre. 

Modificando pues, el código anterior, por el mostrado en el Código fuente 384, conseguiremos que el 
formulario permanezca en ejecución una vez creado. 


Module Entrada 

Public Sub Main () 

' instanciar un objeto de la clase del formulario 
Dim frmVentana As New frmPruebaO 
frmVentana.Text = "probando desde código" 


383 


















Fundamentos de programación con Visual Basic .NET 


© Grupo EIDOS 


' utilizamos el objeto Application y su 
' método Run() para crear un bucle de 
1 mensajes para el formulario y 
' ponerlo en ejecución 
Application.Run(frmVentana) 

End Sub 
End Module 

Código fuente 384 


Otros controles básicos 

Al abrir el cuadro de herramientas podemos observar que el conjunto de controles disponibles es muy 
numeroso, lo que nos permite crear nuestro interfaz de usuario Windows de un modo rápido y sencillo, 
dotándole de un nutrido conjunto de funcionalidades. 

Tras la primera toma de contacto con los formularios realizada en los anteriores apartados, vamos 
seguidamente, a desarrollar un ejemplo que nos permita ilustrar el diseño y codificación de los 
controles más característicos que podemos utilizar en un formulario 

Para ello, crearemos un nuevo proyecto de tipo Windows al que daremos el nombre de Encuesta 
(hacer clic aquí para acceder a este ejemplo), y en él diseñaremos un formulario para que un hipotético 
comercio pueda realizar una encuesta a sus clientes, que después grabe en un archivo de datos para su 
posterior estudio. Por lo que una vez situados ante el diseñador vacío del formulario, empezaremos a 
proporcionarle funcionalidad a través de los controles descritos en los siguientes apartados. 


Button 


Este control representa un botón que ejecutará una determinada acción al ser pidsado. Entre sus 
propiedades destacaremos las siguientes. 

• Text. Cadena con el título del botón. 

• TextAlign. Alineación o disposición del título dentro del área del botón; por defecto aparece 
centrado. 

• BackColor. Color de fondo para el botón. 

• Cursor. Permite modificar el cursor del ratón que por defecto tiene el botón. 

• Image. Imagen que podemos mostrar en el botón como complemento a su título, o bien, en el 
caso de que no asignemos un texto al botón, nos permitirá describir su funcionalidad. 

• FlatStyle. Tipo de resaltado para el botón. Por defecto, el botón aparece con un cierto relieve, 
que al ser pulsado, proporciona el efecto de hundirse y recuperar nuevamente su estado, pero 
podemos, mediante esta propiedad, hacer que el botón se muestre en modo plano, con un 
ligero remarcado al pulsarse, etc. 

• Font. Cambia el tipo de letra y todas las características del tipo elegido, para el texto del 
botón. 
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Abriendo la ventana Cuadro de herramientas, insertaremos un control de este tipo, al que daremos el 
nombre btnSalir, y que utilizaremos para cerrar el formulario finalizando el programa. La Figura 141 
muestra la ubicación de este control dentro de la superficie del formulario. 


Forml.vb[Diseño]* | Forml.vb* 



Figura 141. Control Button insertado en el diseñador del formulario. 


Codificación de los eventos de controles 

Windows es un sistema operativo orientado a eventos, por lo que cualquier mínima interacción que 
realicemos sobre un formulario o control, generará el correspondiente evento o suceso sobre dicho 
objeto visual, para el que deberemos escribir código si estamos interesados en darle respuesta. 

En el caso del control Button que acabamos de añadir, cuando pulsamos sobre él se produce su evento 
Click. 

Si ejecutamos en este momento el programa, al pulsar sobre el botón btnSalir no ocurrirá nada, ya que 
aunque el evento se produce, no existe código que le proporcione respuesta. Esto lo solucionamos 
escribiendo un procedimiento manipulador de evento, al estilo de los manipuladores explicados en el 
tema sobre tratamiento de eventos; revise el lector dicho tema para una referencia sobre la creación y 
manipulación de eventos en el entorno de .NET. 

Para codificar el evento Click de nuestro botón, el medio más rápido consiste en hacer doble clic sobre 
dicho control en el diseñador del formulario. Esta acción nos llevará al editor de código, que creará el 
procedimiento manipulador de este evento vacío, listo para ser codificado. Ver Figura 142. 

Lo que vamos a hacer a continuación es muy sencillo, ya que al tratarse del cierre del formulario, 
llamaremos al método Close( ) del mismo, utilizando la palabra clave Me, para indicar que estamos 
haciendo referencia al propio objeto desde el interior del código de su clase. El uso de Me en esta 
situación es opcional, ya que no sería necesario, pero proporciona un código más legible. Veamos este 
manipulador de evento en el Código fuente 385. 
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Forml.vb [Diseño]* Forml.vb* | XNotas.txt* 

I^Forml (Encuesta) 


<1 > 


.¡♦btnSalir_Click 


□ Public Class Forml 

Inherits System.Windows.Forns.Forn 

Ej]| Windows Form Designer generated code | 


Priuate Sub btnSalir_Click(Byüal sender As Systen.Object, ByUal e As Systen 

I 

End Sub 
l-End Class 


Figura 142. Procedimiento manipulador del evento Click de un control Button. 


Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles btnSalir.Click 

Me.Cióse() 

End Sub 

Código fuente 385 


Observe el lector que en el código de la clase generada por el diseñador del formulario, los controles 
se declaran con la palabra clave WithEvents, por lo que al escribir los procedimientos manipuladores 
de evento, estos conectan con el evento adecuado mediante la palabra clave Handles. 

Ejecutando en el estado actual el proyecto, observaremos como al pulsar el control btnSalir del 
formulario, este será cerrado. 

El evento que acabamos de escribir es el denominado evento por defecto, y recibe este nombre, porque 
es el que se muestra en el editor de código cuando hacemos doble clic sobre el control, en el diseñador 
del formulario. No obstante, un control tiene otra serie de eventos además del evento por defecto, para 
tratar los diversos sucesos que pueden acontecerle. 

Por ejemplo, cuando situamos el cursor del ratón sobre un Button, se produce el evento MouseEnter, 
indicativo de que el ratón está entrando en el área que ocupa el control en el formulario. De forma 
inversa, cuando el ratón abandona el espacio ocupado por el control se produce el evento 
MouseLeave. 

Supongamos que cuando el ratón entra en la zona del control Button, queremos cambiar el texto de 
este control, y cuando sale, lo dejamos como estaba originalmente. En este caso, y como no estamos 
trabajando con los eventos por defecto del control, el modo más fácil de escribir su manipulador es el 
siguiente. 

Situándonos en la ventana del editor de código, haremos clic en la lista desplegable Nombre de clase, 
situada en la parte superior izquierda del editor, y seleccionaremos el control a codificar: btnSalir, 
como muestra la Figura 143. 

A continuación abriremos la lista desplegable Nombre de método, que mostrará la lista de eventos 
disponible para el control que acabamos de elegir. Seleccionando MouseEnter, como vemos en la 
Figura 144, el editor de código nos proporcionará el procedimiento para este evento, listo para que 
escribamos su código 
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Figura 143. Selección del control a codificar. 
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Figura 144. Selección del evento a codificar para un control. 


El código a escribir para este evento consistirá en tomar el control btnSalir, y asignarle una nueva 
cadena a su propiedad Text. Para el evento MouseLeave, el proceso será exactamente igual, pero 
asignando a la propiedad Text el título que inicialmente tenía el control. El Código fílente 386 muestra 
ambos procedimientos de evento. 


Private Sub btnSalir_MouseEnter(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles btnSalir.MouseEnter 

Me.btnSalir.Text = "¡¡SORPRESA!!" 

End Sub 

Private Sub btnSalir_MouseLeave(ByVal sender As Object, 
ByVal e As System.EventArgs) Handles btnSalir.MouseLeave 

Me.btnSalir.Text = "Salir" 

End Sub 

Código fuente 386 
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Realizadas estas incorporaciones en el código del programa, al ejecutar comprobaremos cómo 
situando el cursor en el Button, este cambia su título, recuperándolo al abandonarlo. Ver la Figura 145. 



Figura 145. El control Button cambia su título al entrar el cursor. 


TextBox 

Un control TextBox representa una caja en la que podemos escribir una o varias líneas de texto, según 
configuremos sus propiedades. Para poder escribir texto en un control de este tipo, debemos darle 
primeramente el foco mediante alguna de las formas estándar disponibles en Windows: haciendo clic 
sobre el control, o pulsando la tecla [TAB]; cuando el control muestre el cursor de escritura en su 
interior sabremos que acaba de tomar el foco y podemos escribir en él. 

Entre las propiedades disponibles por este control, destacaremos las siguientes. 

• Text. Cadena con el texto del control. 

• Multiline. Permite establecer si podemos escribir una o varias líneas. Por defecto contiene 
False, por lo que sólo podemos escribir el texto en una línea. 

• WordWrap. En controles multilínea, cuando su valor es True, al llegar al final del control 
cuando estamos escribiendo, realiza un desplazamiento automático del cursor de escritura a la 
siguiente línea de texto. 

• Enabled. Contiene un valor lógico mediante el que indicamos si el control está o no habilitado 
para poder escribir texto sobre él. 

• ReadOnly. Permite indicar si el contenido del control será de sólo lectura o bien, podremos 
editarlo. 

• CharacterCasing. Esta propiedad, permite que el control convierta automáticamente el texto 
a mayúsculas o minúsculas según lo estamos escribiendo. 

• MaxLength. Valor numérico que establece el número máximo de caracteres que podremos 
escribir en el control. 
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• PasswordChar. Carácter de tipo máscara, que será visualizado por cada carácter que escriba 
el usuario en el control. De esta forma, podemos dar a un cuadro de texto el estilo de un 
campo de introducción de contraseña. 

• AutoSize. Cuando esta propiedad tenga el valor True, al modificar el tamaño del tipo de letra 
del control, dicho control se redimensionará automáticamente, ajustando su tamaño al del tipo 
de letra establecido. 

En el formulario de nuestro ejemplo vamos a introducir dos TextBox: el primero, con el nombre 
txtNombre, lo usaremos para escribir el nombre completo del cliente; el segundo, con el nombre 
txtObservaciones, que configuraremos en modo multilínea, lo usaremos para introducir observaciones 
diversas. Ver la Figura 146. 



Figura 146. Incorporación de controles TextBox al formulario. 


En cuanto a los eventos para un control TextBox, en este ejemplo vamos a codificar el evento 
TextChanged, que se produce cada vez que el usuario escribe texto en el control. El control txtNombre 
será el que codifiquemos, y vamos a utilizar para visualizar la cantidad de caracteres escritos, un 
control Label con el nombre lblNumLetras. Ver el Código fuente 387. 


Private Sub txtNombre_TextChanged(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles txtNombre.TextChanged 

Me.lblNumLetras.Text = Me.txtNombre.Text.Length 

End Sub 

Código fuente 387 


Al ejecutar el programa, en el Label situado al lado del TextBox, visualizaremos la cantidad de texto 
escrito, como muestra la Figura 147. 
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Figura 147. El formulario mostrando el número de caracteres del TextBox. 


CheckBox 

Este control consiste en una casilla de verificación, que podemos marcar para establecer un estado. 

Generalmente el estado de un CheckBox es marcado (verdadero) o desmarcado (falso), sin embargo, 
podemos configurar el control para que sea detectado un tercer estado, que se denomina 
indeterminado, en el cual, el control se muestra con la marca en la casilla pero en un color de tono 
gris. 

Las propiedades remarcables de este control son las siguientes. 

• Checked. Valor lógico que devuelve True cuando la casilla está marcada, y False cuando está 
desmarcada. 

• CheckState. Valor del tipo enumerado CheckState, que indica el estado del control. Checked, 
marcado; Unchecked, desmarcado; e Indeterminate, indeterminado. 

• ThreeState. Por defecto, un control de este tipo sólo tiene dos estados, pero asignando True a 
esta propiedad, conseguimos que sea un control de tres estados. 

• CheckAlign. Permite establecer de modo visual la ubicación de la casilla de verificación 
dentro del área del control. 

Un detalle destacable de las propiedades Checked y CheckState, consiste en que si modificamos desde 
código sus valores, conseguiremos alterar el estado de la casilla del control. 

Como muestra para nuestro programa, añadiremos un CheckBox con el nombre chkCompra, para 
indicar si el cliente al que se realiza la encuesta, ha efectuado algún tipo de compra en el 
establecimiento. Ver la Figura 148. 
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Figura 148. Formulario incluyendo control CheckBox. 


RadioButton 

Los controles RadioButton nos permiten definir conjuntos de opciones autoexcluyentes, de modo que 
situando varios controles de este tipo en un formulario, sólo podremos tener seleccionado uno en cada 
ocasión. 

Ya que su función es la de seleccionar una opción entre varias posibles, las propiedades de este control 
son muy similares a las del CheckBox, por lo que no vamos a incidir especialmente en ellas. 

Añadiremos a nuestro ejemplo dos RadioButton que nos permitan saber el medio de transporte 
utilizado para llegar al establecimiento, como muestra la Figura 149. 


Encuesta a clientes 


Nombre completo: |Ana Perales 
Observaciones: 




11 


^jnjxj 


I* ¿Ha efectuado compra? 


(' Vehículo propio 


C 


T ransporte público 


Salir 


Figura 149. Inserción de controles RadioButton en el formulario. 
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La ubicación de controles RadioButton de esta manera en el formulario tiene sin embargo un 
inconveniente, ya que si añadimos dos nuevos controles de este tipo, para indicar si estamos ante un 
comprador habitual o uno nuevo, de los cuatro RadioButton sólo podremos tener uno seleccionado en 
cada momento, como vemos en la Figura 150. 


{Encuesta a clientes 


Nombre completo: 
Observaciones: 


^idxj 



F ¿Ha efectuado compra? 


F Habitual F Vehículo propio 

(* INüévbj F T ransporte público 


Salir 


Figura 150. Sólo es posible seleccionar un RadioButton. 


GroupBox 

La solución al problema planteado en el anterior apartado pasa por encerrar los conjuntos de controles 
RadioButton en un control GroupBox, agrupándolos así por funcionalidades. 

De esta forma, añadiremos al formulario dos GroupBox; en uno situaremos los RadioButton que 
informan del tipo de transporte, y en el otro los que indican el tipo de cliente. A partir de ese 
momento, podremos seleccionar valores simultáneamente en ambos grupos, como muestra la Figura 
151. 


Encuesta a clientes 


Nombre completo: 
Observaciones: 


B 

NumLetras 




r ¿Ha efectuado compra? 


Tipo de cliente 


Medio de desplazamiento 

F Habitual 


(• Vehículo propio 

(* Nuevo 


F Transporte público 


Salir 


Figura 151. Uso de controles GroupBox para organizar RadioButton. 
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ListBox 

Un control ListBox contiene una lista de valores, de los cuales, el usuario puede seleccionar uno o 
varios simultáneamente. 

Para nuestro programa de ejemplo, insertaremos un control de este tipo en el formulario con el nombre 
IstSecciones, mediante el que podremos indicar las secciones del establecimiento que ha visitado el 
cliente encuestado. 

Entre las principales propiedades de este control, podemos resaltar las siguientes. 

• Items. Contiene la lista de valores que visualiza el control. Se trata de un tipo 
ListBox.ObjectCollection, de manera que el contenido de la lista puede ser tanto tipos 
carácter, como numéricos y objetos de distintas clases. Al seleccionar esta propiedad en la 
ventana de propiedades del control, y pulsar el botón que contiene, podemos introducir en una 
ventana elementos para el control. Ver Figura 152. 



Figura 152. Introducción de valores para un ListBox en tiempo de diseño. 


El control quedaría por lo tanto con valores asignados en la etapa de diseño, como muestra la 
Figura 153. 


.Secciones visitadas . 


Libros 

▲ • 


Música 



Informática 



Papelería 

d 


Deportes 


Figura 153. ListBox en diseño con valores en su lista. 


• Sorted. Cuando esta propiedad contiene el valor True, ordena el contenido de la lista. Cuando 
contiene False, los elementos que hubiera previamente ordenados, permanecen con dicho 
orden, mientras que los nuevos no serán ordenados. 
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• IntegralHeight. Los valores de la lista son mostrados al completo cuando esta propiedad 
contiene True. Sin embargo, al asignar el valor False, según el tamaño del control, puede que 
el último valor de la lista sea visualizado sólo en parte. La Figura 154 muestra un ListBox con 
esta propiedad a False. 


:::::: Secciones visitadas 


Libros 

Música 

Informática 

Papelería 

flpnnrtp? 

▲ • 

zÉ 


Figura 154. ListBox mostrando parte del último elemento debido a la propiedad IntegralHeight. 

• SelectionMode. Establece el modo en el que vamos a poder seleccionar los elementos de la 
lista. Si esta propiedad contiene None, no se realizará selección; One, permite seleccionar los 
valores uno a uno; MultiSimple permite seleccionar múltiples valores de la lista pero debemos 
seleccionarlos independientemente; por último, MultiExtended nos posibilita la selección 
múltiple, con la ventaja de que podemos hacer clic en un valor, y arrastrar, seleccionando en la 
misma operación varios elementos de la lista. 

• Selectedltem. Devuelve el elemento de la lista actualmente seleccionado. 

• Selectedltems. Devuelve una colección ListBox.SelectedObjectCollection, que contiene los 
elementos de la lista que han sido seleccionados. 


ComboBox 

El ComboBox es un control basado en la combinación (de ahí su nombre) de dos controles que ya 
hemos tratado: TextBox y ListBox. 

Un control ComboBox dispone de una zona de edición de texto y una lista de valores, que podemos 
desplegar desde el cuadro de edición. Igualmente tiene un estilo de visualización que podemos 
establecer mediante la propiedad DropDownStyle, cuyos valores son los siguientes: 

• Simple. El control se muestra con la misma apariencia que un ListBox. 

• DropDown. Estilo por defecto. El control muestra su lista cerrada, y permite seleccionar 
valores de la lista. En el caso de que el valor que necesitemos no se encuentre en la lista, 
podemos escribirlo en su cuadro de texto. 

• DropDownList. El control muestra su lista cerrada, y permite seleccionar valores de la lista, 
pero no permite escribir valores en el cuadro de texto. 

En el caso de que la lista desplegable sea muy grande, mediante la propiedad MaxDropDownltems 
asignaremos el número de elementos máximo que mostrará la lista del control. 

El resto de propiedades y métodos son comunes con los controles TextBox y ListBox. 

Para nuestro formulario de ejemplo, añadiremos un control de este tipo con el nombre 
cboEstiloMusical, en el que seleccionaremos el estilo musical preferido del cliente. Sin embargo, no 
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añadiremos los valores a la lista en modo de diseño, sino que lo haremos por código en el momento en 
que el formulario sea cargado al ejecutarse. 

Esto lo podemos conseguir codificando el evento Load( ) del formulario, que produce cuando la 
ventana es cargada durante la ejecución del programa. Situándonos en el editor de código, abriremos 
la lista Nombre de clase y seleccionaremos el valor Eventos de clase base. A continuación, abriremos 
la lista Nombre de método, y seleccionaremos el evento Load( ), escribiendo el código que se muestra 
en el Código fuente 388, el cual utiliza la propiedad Items del ComboBox, llamando a su método 
AddRange( ), y le pasa como parámetro un array de cadenas, con los valores que aparecerán en el 
ComboBox. 


Private Sub Forml_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles 
MyBase.Load 

Me.cboEstiloMusical.Items.AddRange(New StringO {"Pop", "Rock", "Clásica", "New 
Age"}) 

End Sub 

Código ñiente 388 


La Figura 155 muestra el formulario con este nuevo control añadido. 



Figura 155. Control ComboBox desplegando lista de valores. 
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Menús 

Un menú consiste en un conjunto de opciones situadas horizontalmente debajo de la barra de título de 
un formulario. Al seleccionar estas opciones, se despliegan listas de nuevas opciones dependientes, 
que permiten ejecutar acciones al ser seleccionadas. 


Controles de tipo menú 

Desde la perspectiva del programador de VB.NET, la construcción del menú para un formulario se 
realiza utilizando de forma combinada dos controles: MainMenu y Menultem. Para completar nuestro 
ejemplo del formulario de encuesta, veremos a continuación los pasos necesarios a dar para añadir un 
menú simple a la ventana, que contenga algunas opciones. 


Diseño de menús 

En primer lugar debemos añadir un control MainMenu al diseñador del formulario. Este control actúa 
como contenedor de las diversas opciones que compondrán el menú. En la ventana de propiedades 
daremos el nombre mnuPrincipal a este control. 

Una vez insertado, este control queda situado debajo de la plantilla del diseñador del formulario, en un 
panel inferior reservado para controles especiales. Por otro lado, debajo de la barra de título podemos 
ver la primera opción con el nombre Escriba aquí, un indicador que sirve como punto de partida para 
comenzar el diseño del menú. Ver la Figura 156. 


Forml.vb [Diseno]* | Forml.vb* | XK 


fie 


SI Encuesta a clientes 


I Escriba aquí | 


■ 


Nombre completo: 


Observaciones: 


i::::::::::::::;:;-1 ¿Ha efectu 
— Tipo de cliente 
Y:\ C Hombre 


C Mujer 


Secciones visitadas 


“) MainMenul 


Figura 156. Control MainMenu insertado en el formulario. 
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El proceso de edición del menú se realiza directamente en el formulario, en el mismo lugar en el que el 
menú aparecerá en tiempo de ejecución. 

Al hacer clic en la primera opción del menú, podemos dar nombre y propiedades a la misma. 
Simultáneamente y de un modo muy intuitivo, veremos las próximas opciones disponibles, tanto las 
desplegables a partir de dicho menú, como las de la barra principal. Sólo hemos de movemos en la 
dirección que necesitemos, asignando nombre a las opciones, y valores a sus propiedades. Ver la 
Figura 157. 


Archivo | Escriba aquí | 

Datos introducidos . 

i Grabar . 

i Msüir M | Escriba aquí 

i | Escriba aquí | 


Figura 157. Diseño de las opciones de menú de un formulario. 


Cada una de las opciones que componen el menú es a su vez un control Menultem, puesto que como 
hemos dicho anteriormente, un menú está compuesto del control contenedor MainMenu y una serie de 
controles Menultem, tantos como opciones tenga el menú. 

Si durante la creación de los Menultem sólo proporcionamos el nombre, el IDE va asignando a dicho 
control valores por defecto en sus propiedades. En este caso asignaremos los siguientes nombres a las 
opciones de nuestro menú: mnuArchivo, mnuDatos, mnuGrabar y mnuSalir. 

Para modificar las propiedades de una opción de menú, sólo hemos de seleccionarlo en la estructura de 
menú que estamos creando en el diseñador del formulario, y pasar a la ventana de propiedades. Entre 
las propiedades disponibles para un control Menultem podemos destacar las siguientes. 

• Text. Contiene una cadena con el literal o texto descriptivo de la opción de menú. 

• Enabled. Permite habilitar/deshabilitar la opción de menú. Cuando se encuentra deshabilitada, 
se muestra su nombre en un tono gris, indicando que no puede ser seleccionada por el usuario. 

• Checked. Marca/desmarca la opción. Cuando una opción está marcada, muestra junto a su 
nombre un pequeño símbolo de verificación o punteo. 

• ShortCut. Se trata de un atajo de teclado, o combinación de teclas que nos van a permitir 
ejecutar la opción de menú sin tener que desplegarlo. Al elegir esta propiedad, aparecerá una 
lista con todos los atajos disponibles para asignar. 

Podemos adicionalmente, asignar una tecla de acceso rápido o hotkey a una opción de menú, 
anteponiendo el carácter & a la letra que deseemos, de las que se encuentran en la propiedad Text del 
control Menultem. Al igual que sucede con los demás tipos de controles, en el texto de la opción de 
menú, aparecerá subrayada la mencionada letra. De este modo, cuando despleguemos un menú, no 
será necesario posicionamos en una de ellas para ejecutarla, sino que simplemente pulsando la tecla 
rápida, se ejecutará el código de dicha opción. 
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Codificación de menús 

Al seleccionar una opción de menú en un formulario se produce el evento Click sobre el control 
Menultem correspondiente, que podemos codificar al igual que hacemos con cualquier otro control del 
formulario. 

Puesto que Click es el evento por defecto del control Menultem, al hacer doble clic sobre el mismo en 
modo de diseño, pasaremos al editor de código, que nos situará en el procedimiento manipulador de 
este evento. 

El Código fuente 389 corresponde a la opción de menú Salir (control mnuSalir), en la que 
escribiremos el código necesario para cerrar el formulario. 


Private Sub mnuSalir_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuSalir.Click 

Me.Cióse() 

End Sub 

Código ñiente 389 


En la opción de menú Datos introducidos (control mnuDatos), vamos a recopilar toda la información 
introducida sobre el cliente en el formulario de encuesta, visualizándola a través de una caja de 
mensajes. Dicha caja la mostraremos empleando la clase MessageBox, y su método compartido 
Show(), en cuyo primer parámetro situamos el texto a mostrar, mientras que en el segundo podemos 
incluir un título para el mensaje. En el Código fuente 390 mostramos un pequeño ejemplo de uso. 


MessageBox.Show("Hola") 


Código fuente 390 


En nuestro caso particular, el texto a mostrar es muy extenso, como podemos comprobar por la 
cantidad de controles del formulario; además, lo más apropiado sería que cada dato fuera mostrado en 
una línea distinta del mensaje. 

No debemos preocupamos por este aspecto, porque vamos a recurrir a la enumeración de la plataforma 
.NET ControlChars, que como su nombre indica, contiene caracteres de control. De este modo, si 
seleccionamos el miembro CrLf, y lo concatenamos a una cadena, enviaremos la combinación de 
caracteres de retomo de carro y nueva línea, y la siguiente porción de texto será ubicada en una línea 
nueva. El Código fuente 391 muestra el código del evento Click de mnuDatos. Para simplificar el 
ejemplo, se asume que el usuario del programa ha introducido valores tanto en el control ListBox 
como en el ComboBox, de esta manera evitamos código adicional de comprobación. 


Private Sub mnuDatos_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuDatos.Click 
Dim Texto As String 

Texto = Me.txtNombre.Text & ControlChars.CrLf 

Texto &= Me.txtObservaciones.Text & ControlChars.CrLf 
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Texto &= Ilf(Me.chkCompra.Checked, "Ha realizado compra", "No ha comprado") & 
ControlChars.CrLf 

If Me.rbtHabitual.Checked Then 

Texto &= "Es un cliente habitual" & ControlChars.CrLf 
End If 

If Me.rbtNuevo.Checked Then 

Texto &= "Es un nuevo cliente" & ControlChars.CrLf 
End If 

If Me.rbtPropio.Checked Then 

Texto &= "Ha venido en vehículo propio" & ControlChars.CrLf 
End If 

If Me.rbtPublico.Checked Then 

Texto &= "Ha venido utilizando transporte público" & ControlChars.CrLf 
End If 

Texto &= "Ha visitado la sección: " & Me.IstSecciones.Selectedltem & 
ControlChars.CrLf 

Texto &= "Su música preferida es: " & Me.cboEstiloMusical.Text 
MessageBox.Show(Texto, "Datos introducidos en el formulario") 

End Sub 


Código fuente 391 


La Figura 158 muestra el mensaje obtenido al usar el objeto MessageBox durante la ejecución del 
programa. 


Datos introducidos en el form 


xj 


Juan Iglesias Naranjo 

Interesado en electrónica y video juegos 

Ha realizado compra 

Es un nuevo cliente 

Ha venido utilizando transporte público 
Ha visitado la sección: Electrónica 
Su música preferida es: New Age 


[ Aceptar | 


Figura 158. Caja de mensajes visualizada con el objeto MessageBox. 


Por último, la opción de menú Grabar va a ser la encargada de tomar la información del formulario y 
guardarla en un archivo de texto. 

El nombre del archivo lo solicitaremos al usuario a través de la función del lenguaje lnputBox( ), que 
muestra una caja de mensaje estándar incluyendo un cuadro de texto en el que en nuestro caso se 
deberá introducir la ruta y el nombre del archivo a crear. 

Debido a que vamos a trabajar con archivos, es necesario que al comienzo de la ventana del editor de 
código del IDE importemos el espacio de nombres System.lO. 


399 









Fundamentos de programación con Visual Basic .NET 


© Grupo EIDOS 


Como muestra el Código fuente 392, el proceso a codificar para el menú mnuGrabar es muy similar al 
empleado para visualizar por pantalla los datos de la encuesta, sólo que en esta ocasión el destino de 
los datos es un archivo que manipulamos a través de un objeto StreamWriter. 


Imports System.10 

Public Class Forml 

Inherits System.Windows.Forms.Form 


Private Sub mnuGrabar_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles mnuGrabar.C1ick 
Dim Archivo As String 
Dim Escritor As StreamWriter 

Archivo = InputBox("Ruta y nombre de archivo") 

Escritor = New StreamWriter(Archivo) 

Escritor.WriteLine(Me.txtNombre.Text) 

Escritor.WriteLine(Me.txtObservaciones.Text) 

Escritor.WriteLine(Ilf(Me.chkCompra.Checked, "Ha realizado compra", "No ha 
comprado")) 

If Me.rbtHabitual.Checked Then 

Escritor.WriteLine("Es un cliente habitual") 

End If 

If Me.rbtNuevo.Checked Then 

Escritor.WriteLine("Es un nuevo cliente") 

End If 

If Me.rbtPropio.Checked Then 

Escritor.WriteLine("Ha venido en vehículo propio") 

End If 

If Me.rbtPublico.Checked Then 

Escritor.WriteLine("Ha venido utilizando transporte público") 

End If 

Escritor.WriteLine("Ha visitado la sección: " & Me.IstSecciones.Selectedltem) 
Escritor.WriteLine("Su música preferida es: " & Me.cboEstiloMusical.Text) 

Escritor.Cióse () 

MessageBox.Show("Archivo de datos grabado") 

End Sub 


End Class 

Código fuente 392 


Finalizado el proceso de volcado a un archivo, podemos abrir el mismo con el Bloc de notas por 
ejemplo, para ver que su contenido corresponde a la información introducida en el formulario. 
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Libros en formato digital para 
profesionales de la informática 


Si quiere ver más textos en este formato, visítenos en: http://www.lalibreriadigital.com . 

Este libro tiene soporte de formación virtual a través de Internet, con un profesor a su 
disposición, tutorías, exámenes y un completo plan formativo con otros textos. Si desea 
inscribirse en alguno de nuestros cursos o más información visite nuestro campus virtual en: 
http://www.almagesto.com . 

Si quiere información más precisa de las nuevas técnicas de programación puede suscribirse 
gratuitamente a nuestra revista Algoritmo en: http://www.algoritmodigital.com . No deje de 
visitar nuestra reviata Alquimia en http://www.eidos.es/alquimia donde podrá encontrar 
artículos sobre tecnologías de la sociedad del conocimiento. 

Si quiere hacer algún comentario, sugerencia, o tiene cualquier tipo de problema, envíelo a la 
dirección de correo electrónico lalibreriadi gital @ eidos. es . 
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